object frmOrdenPago: TfrmOrdenPago
  Left = 251
  Top = 15
  Width = 660
  Height = 690
  Caption = 'Orden de Pago'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  OnCloseQuery = FormCloseQuery
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter1: TSplitter
    Left = 0
    Top = 510
    Width = 652
    Height = 5
    Cursor = crVSplit
    Align = alBottom
    Color = 8750469
    ParentColor = False
  end
  object Splitter2: TSplitter
    Left = 0
    Top = 115
    Width = 652
    Height = 6
    Cursor = crVSplit
    Align = alTop
  end
  object Panel2: TPanel
    Left = 0
    Top = 0
    Width = 652
    Height = 115
    Align = alTop
    Color = clMedGray
    TabOrder = 0
    DesignSize = (
      652
      115)
    object Label3: TLabel
      Left = 8
      Top = 11
      Width = 54
      Height = 13
      Caption = 'Facturas:'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWhite
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object grdCompras: TRxDBGrid
      Left = 6
      Top = 26
      Width = 639
      Height = 79
      Anchors = [akLeft, akTop, akRight, akBottom]
      DataSource = sCompras
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgConfirmDelete, dgCancelOnExit]
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      OnDblClick = grdComprasDblClick
      Columns = <
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'FECHA'
          Title.Alignment = taCenter
          Title.Caption = 'Fecha'
          Title.Font.Charset = DEFAULT_CHARSET
          Title.Font.Color = clNavy
          Title.Font.Height = -11
          Title.Font.Name = 'MS Sans Serif'
          Title.Font.Style = [fsBold]
          Width = 57
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'LETRA'
          Title.Alignment = taCenter
          Title.Caption = 'L'
          Title.Font.Charset = DEFAULT_CHARSET
          Title.Font.Color = clNavy
          Title.Font.Height = -11
          Title.Font.Name = 'MS Sans Serif'
          Title.Font.Style = [fsBold]
          Width = 16
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'NUMERO'
          Title.Alignment = taCenter
          Title.Caption = 'N'#186
          Title.Font.Charset = DEFAULT_CHARSET
          Title.Font.Color = clNavy
          Title.Font.Height = -11
          Title.Font.Name = 'MS Sans Serif'
          Title.Font.Style = [fsBold]
          Width = 74
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'TOTAL'
          Title.Alignment = taCenter
          Title.Caption = 'Neto'
          Title.Font.Charset = DEFAULT_CHARSET
          Title.Font.Color = clNavy
          Title.Font.Height = -11
          Title.Font.Name = 'MS Sans Serif'
          Title.Font.Style = [fsBold]
          Width = 77
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'IVA'
          Title.Alignment = taCenter
          Title.Font.Charset = DEFAULT_CHARSET
          Title.Font.Color = clNavy
          Title.Font.Height = -11
          Title.Font.Name = 'MS Sans Serif'
          Title.Font.Style = [fsBold]
          Width = 41
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'PIB'
          Title.Alignment = taCenter
          Title.Font.Charset = DEFAULT_CHARSET
          Title.Font.Color = clNavy
          Title.Font.Height = -11
          Title.Font.Name = 'MS Sans Serif'
          Title.Font.Style = [fsBold]
          Width = 57
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'DESCUENTO'
          Title.Alignment = taCenter
          Title.Caption = 'Dto'
          Title.Font.Charset = DEFAULT_CHARSET
          Title.Font.Color = clNavy
          Title.Font.Height = -11
          Title.Font.Name = 'MS Sans Serif'
          Title.Font.Style = [fsBold]
          Width = 39
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'totalGral'
          Title.Alignment = taCenter
          Title.Caption = 'Total'
          Title.Font.Charset = DEFAULT_CHARSET
          Title.Font.Color = clNavy
          Title.Font.Height = -11
          Title.Font.Name = 'MS Sans Serif'
          Title.Font.Style = [fsBold]
          Width = 68
          Visible = True
        end>
    end
    object fechaDesde: TDateEdit
      Left = 545
      Top = 3
      Width = 99
      Height = 21
      Anchors = [akTop, akRight]
      NumGlyphs = 2
      TabOrder = 1
      OnChange = fechaDesdeChange
    end
  end
  object Panel3: TPanel
    Left = 0
    Top = 121
    Width = 652
    Height = 389
    Align = alClient
    TabOrder = 1
    DesignSize = (
      652
      389)
    object Label5: TLabel
      Left = 145
      Top = 3
      Width = 63
      Height = 13
      Caption = 'Proveedor:'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label6: TLabel
      Left = 8
      Top = 46
      Width = 34
      Height = 13
      Caption = 'CUIT:'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object DBText2: TDBText
      Left = 51
      Top = 44
      Width = 3
      Height = 16
      AutoSize = True
      DataField = 'CUIT'
      DataSource = sOrdenPago
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label7: TLabel
      Left = 565
      Top = 3
      Width = 40
      Height = 13
      Anchors = [akTop, akRight]
      Caption = 'Fecha:'
      Font.Charset = ANSI_CHARSET
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label8: TLabel
      Left = 478
      Top = 46
      Width = 76
      Height = 13
      Anchors = [akTop, akRight]
      Caption = '% Retenci'#243'n:'
      FocusControl = alicuotaRetencion
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label9: TLabel
      Left = 8
      Top = 3
      Width = 15
      Height = 13
      Caption = 'N'#186
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object DBText3: TDBText
      Left = 8
      Top = 19
      Width = 127
      Height = 20
      AutoSize = True
      DataField = 'NUMERO'
      DataSource = sOrdenPago
      Font.Charset = DEFAULT_CHARSET
      Font.Color = 27090
      Font.Height = -16
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object lblBloqueo: TLabel
      Left = 340
      Top = 46
      Width = 124
      Height = 13
      Anchors = [akTop, akRight]
      Caption = 'ORDEN BLOQUEADA'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object DBLookupComboBox2: TDBLookupComboBox
      Left = 144
      Top = 18
      Width = 413
      Height = 21
      Anchors = [akLeft, akTop, akRight]
      DataField = 'proveedor'
      DataSource = sOrdenPago
      TabOrder = 0
      OnEnter = DBLookupComboBox2Enter
      OnExit = DBLookupComboBox2Exit
    end
    object DBDateEdit1: TDBDateEdit
      Left = 564
      Top = 18
      Width = 85
      Height = 21
      DataField = 'FECHA'
      DataSource = sOrdenPago
      Color = clWhite
      DefaultToday = True
      DialogTitle = 'Seleccione una fecha'
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Anchors = [akTop, akRight]
      NumGlyphs = 2
      ParentFont = False
      TabOrder = 1
      StartOfWeek = Sun
      YearDigits = dyTwo
      OnEnter = DBLookupComboBox2Enter
      OnExit = DBDateEdit1Exit
    end
    object grdRenglonOrdenPago: TRxDBGrid
      Left = 8
      Top = 66
      Width = 640
      Height = 179
      Anchors = [akLeft, akTop, akRight, akBottom]
      DataSource = sRenglon_OrdenPago
      TabOrder = 2
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      OnDrawColumnCell = grdRenglonOrdenPagoDrawColumnCell
      OnEnter = grdRenglonOrdenPagoEnter
      Columns = <
        item
          Expanded = False
          FieldName = 'RENGLON'
          Title.Alignment = taCenter
          Title.Caption = '#'
          Title.Font.Charset = DEFAULT_CHARSET
          Title.Font.Color = clNavy
          Title.Font.Height = -11
          Title.Font.Name = 'MS Sans Serif'
          Title.Font.Style = [fsBold]
          Width = 20
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'tipo'
          Title.Alignment = taCenter
          Title.Caption = 'Tipo'
          Title.Font.Charset = DEFAULT_CHARSET
          Title.Font.Color = clNavy
          Title.Font.Height = -11
          Title.Font.Name = 'MS Sans Serif'
          Title.Font.Style = [fsBold]
          Width = 38
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'COMPROBANTE'
          Title.Alignment = taCenter
          Title.Caption = 'N'#186
          Title.Font.Charset = DEFAULT_CHARSET
          Title.Font.Color = clNavy
          Title.Font.Height = -11
          Title.Font.Name = 'MS Sans Serif'
          Title.Font.Style = [fsBold]
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'FECHA'
          Title.Alignment = taCenter
          Title.Caption = 'Fecha'
          Title.Font.Charset = DEFAULT_CHARSET
          Title.Font.Color = clNavy
          Title.Font.Height = -11
          Title.Font.Name = 'MS Sans Serif'
          Title.Font.Style = [fsBold]
          Width = 68
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'NETO'
          Title.Alignment = taCenter
          Title.Caption = 'Neto'
          Title.Font.Charset = DEFAULT_CHARSET
          Title.Font.Color = clNavy
          Title.Font.Height = -11
          Title.Font.Name = 'MS Sans Serif'
          Title.Font.Style = [fsBold]
          Width = 67
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'DESCUENTO'
          Title.Alignment = taCenter
          Title.Caption = 'Dto'
          Title.Font.Charset = DEFAULT_CHARSET
          Title.Font.Color = clNavy
          Title.Font.Height = -11
          Title.Font.Name = 'MS Sans Serif'
          Title.Font.Style = [fsBold]
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'PIB'
          Title.Alignment = taCenter
          Title.Font.Charset = DEFAULT_CHARSET
          Title.Font.Color = clNavy
          Title.Font.Height = -11
          Title.Font.Name = 'MS Sans Serif'
          Title.Font.Style = [fsBold]
          Width = 69
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'IVA'
          Title.Alignment = taCenter
          Title.Font.Charset = DEFAULT_CHARSET
          Title.Font.Color = clNavy
          Title.Font.Height = -11
          Title.Font.Name = 'MS Sans Serif'
          Title.Font.Style = [fsBold]
          Width = 71
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'importe'
          ReadOnly = True
          Title.Alignment = taCenter
          Title.Caption = 'Importe'
          Title.Font.Charset = DEFAULT_CHARSET
          Title.Font.Color = clNavy
          Title.Font.Height = -11
          Title.Font.Name = 'MS Sans Serif'
          Title.Font.Style = [fsBold]
          Width = 62
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'retencion'
          ReadOnly = True
          Title.Alignment = taCenter
          Title.Caption = 'Ret.'
          Title.Font.Charset = DEFAULT_CHARSET
          Title.Font.Color = clNavy
          Title.Font.Height = -11
          Title.Font.Name = 'MS Sans Serif'
          Title.Font.Style = [fsBold]
          Width = 62
          Visible = True
        end>
    end
    object alicuotaRetencion: TDBEdit
      Left = 564
      Top = 43
      Width = 84
      Height = 21
      Anchors = [akTop, akRight]
      DataField = 'ALICUOTA_RETENCION'
      DataSource = sOrdenPago
      TabOrder = 3
      OnEnter = DBLookupComboBox2Enter
    end
    object nvgOrdenPago: TDBNavigator
      Left = 248
      Top = 251
      Width = 150
      Height = 25
      DataSource = sOrdenPago
      VisibleButtons = [nbPrior, nbNext, nbDelete, nbPost, nbCancel]
      Anchors = [akLeft, akBottom]
      TabOrder = 4
      OnClick = nvgOrdenPagoClick
    end
    object btnGrabar: TBitBtn
      Left = 407
      Top = 251
      Width = 63
      Height = 24
      Anchors = [akLeft, akBottom]
      Caption = 'Grabar'
      Default = True
      Enabled = False
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 5
      OnClick = btnGrabarClick
      Glyph.Data = {
        DE010000424DDE01000000000000760000002800000024000000120000000100
        0400000000006801000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333333333333333330000333333333333333333333333F33333333333
        00003333344333333333333333388F3333333333000033334224333333333333
        338338F3333333330000333422224333333333333833338F3333333300003342
        222224333333333383333338F3333333000034222A22224333333338F338F333
        8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224
        33333338F83338F338F33333000033A33333A222433333338333338F338F3333
        0000333333333A222433333333333338F338F33300003333333333A222433333
        333333338F338F33000033333333333A222433333333333338F338F300003333
        33333333A222433333333333338F338F00003333333333333A22433333333333
        3338F38F000033333333333333A223333333333333338F830000333333333333
        333A333333333333333338330000333333333333333333333333333333333333
        0000}
      NumGlyphs = 2
      Spacing = 0
    end
    object btnNueva: TBitBtn
      Left = 120
      Top = 251
      Width = 73
      Height = 25
      Anchors = [akLeft, akBottom]
      Caption = 'Nueva'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 6
      OnClick = btnNuevaClick
      Spacing = 3
    end
    object btnVistaPrevia: TBitBtn
      Left = 8
      Top = 251
      Width = 105
      Height = 25
      Anchors = [akLeft, akBottom]
      Caption = 'Vista Previa'
      Default = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 7
      OnClick = btnVistaPreviaClick
      Glyph.Data = {
        36050000424D3605000000000000360400002800000010000000100000000100
        0800000000000001000000000000000000000001000000010000000000000101
        0100020202000303030004040400050505000606060007070700080808000909
        09000A0A0A000B0B0B000C0C0C000D0D0D000E0E0E000F0F0F00101010001111
        1100121212001313130014141400151515001616160017171700181818001919
        19001A1A1A001B1B1B001C1C1C001D1D1D001E1E1E001F1F1F00202020002121
        2100222222002323230024242400252525002626260027272700282828002929
        29002A2A2A002B2B2B002C2C2C002D2D2D002E2E2E002F2F2F00303030003131
        3100323232003333330034343400353535003636360037373700383838003939
        39003A3A3A003B3B3B003C3C3C003D3D3D003E3E3E003F3F3F00404040004141
        4100424242004343430044444400454545004646460047474700484848004949
        49004A4A4A004B4B4B004C4C4C004D4D4D004E4E4E004F4F4F00505050005151
        5100525252005353530054545400555555005656560057575700585858005959
        59005A5A5A005B5B5B005C5C5C005D5D5D005E5E5E005F5F5F00606060006161
        61006262620063636300646464006565650065686B00656C7100697078006C74
        7E006E788400707B8900717E8E007280920071819500708297006F8298006D81
        98006C8198006A829B0068839E006683A0006584A1006485A3006188AA005F8C
        B1005E8EB6005E91BA005F93BD005C93C1005793C5005493C7005293C8005096
        CF005392C8005792C6005C92C2006592BC006B91B7006E90B200728DAC00768B
        A5007B889D008185950087879400928B92009F909100AD969100B89A9100BD9D
        9200C19F9300C4A29300C7A49400CCA79300D2AB9300D8AE9100DFB28F00E1B3
        8F00E2B38F00E1B28F00E1B18D00E0B08D00DEAE8C00DEAE8B00DCAC8B00DAAA
        8B00DAA98A00D8A88B00D6A68A00D3A38900D1A08800CF9E8800CD9B8600CA97
        8300C6938100C4907E00C18D7C00BF8B7B00BB887A00B9867900B7847800B683
        7700B5837700B5827700B3817800B3817900B3827C00B4827E00B5828000B582
        8100B6828200B6828200B6828300B7838300B7848400B8858600B9868900BB85
        8F00C07E9B00CB6FB000D65AC000DF46CF00EA2DE000F31CEE00F90EF800FC06
        FC00FE02FE00FE01FE00FE00FE00FE00FE00FE00FE00FE00FE00FE00FE00FE00
        FE00FE00FE00FE00FE00FE00FE00FE00FE00FE00FE00FE00FE00FE00FE00FE01
        FE00FD07FB00FC11F700FA23EF00F73BE400F164D200EB91BE00E7AEB100E5B9
        AC00E4C1A900E5C6A600E6C9A500EACBA200EDCEA000EFD09F00F0D0A100F0D2
        A500F1D4A800F1D5AB00F2D7B000F1D8B400F1D9BA00F1DABF00EFDAC400EFDC
        C700EFDDCC00F3E3D100F4E6D600F7EADB00F9EEE100FAF2E800FBF5ED00FBF6
        F000FCF9F500FDFBF800FEFCFA00FEFDFC00FEFCFB00FEFDFB00D2D2BCBCBCBC
        BCBCBCBCBCBCBCBCBCD2D2D268F6F3EFEDEBE9E7E7E7E7E7BCD2D27D818AF3EF
        EEECEAE8E6E6E6E7BCD2D2D281818BF3F0EEECEBE8E6E6E7BCD2D2D2B481818A
        F3EFEEECEAE8E7E7BCD2D2D2BFFC8184B591B5AA97EAE8E7BCD2D2D2BFFDF892
        94E4F1E29297EAEABCD2D2D2A9FDFA92F0F5F4FFE2AAEDECBCD2D2D2A9FDFDB5
        F6F6F5F9F1B5EEEDBCD2D2D2A2FDFD92F2F8F6F6E391EFEEBCD2D2D2A2FDFDF2
        95F2F6F09493F0E2BCD2D2D29CFDFDFDF292B592E1AFAFAFBCD2D2D29CFDFDFD
        FDFDFDFFF1AF9CA2AED2D2D29AFDFDFDFDFDFDFDF2AFE7AAD2D2D2D29AFAFAF9
        F9F9F9F9F2AFA8D2D2D2D2D29AA2A2A2A2A2A2A2A2AFD2D2D2D2}
      Spacing = 3
    end
    object Panel1: TPanel
      Left = 479
      Top = 251
      Width = 149
      Height = 25
      Anchors = [akLeft, akBottom]
      BevelOuter = bvNone
      Color = 8750469
      TabOrder = 8
      DesignSize = (
        149
        25)
      object DBText4: TDBText
        Left = 126
        Top = 5
        Width = 5
        Height = 13
        Alignment = taRightJustify
        Anchors = [akRight, akBottom]
        AutoSize = True
        DataField = 'totalRetencion'
        DataSource = sRenglon_OrdenPago
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWhite
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object DBText5: TDBText
        Left = 63
        Top = 5
        Width = 5
        Height = 13
        Alignment = taRightJustify
        Anchors = [akRight, akBottom]
        AutoSize = True
        DataField = 'totalImporte'
        DataSource = sRenglon_OrdenPago
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWhite
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
    end
    object grdChequeOrdenPago: TRxDBGrid
      Left = 8
      Top = 286
      Width = 641
      Height = 99
      Anchors = [akLeft, akRight, akBottom]
      DataSource = sChequeOrdenPago
      TabOrder = 9
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      OnEnter = grdChequeOrdenPagoEnter
      Columns = <
        item
          Expanded = False
          FieldName = 'ID_CHEQUE'
          Title.Alignment = taCenter
          Title.Caption = 'ID'
          Title.Font.Charset = DEFAULT_CHARSET
          Title.Font.Color = clNavy
          Title.Font.Height = -11
          Title.Font.Name = 'MS Sans Serif'
          Title.Font.Style = [fsBold]
          Width = 38
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'BANCO'
          Title.Alignment = taCenter
          Title.Caption = 'Banco'
          Title.Font.Charset = DEFAULT_CHARSET
          Title.Font.Color = clNavy
          Title.Font.Height = -11
          Title.Font.Name = 'MS Sans Serif'
          Title.Font.Style = [fsBold]
          Width = 150
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'CHEQUE'
          Title.Alignment = taCenter
          Title.Caption = 'Cheque'
          Title.Font.Charset = DEFAULT_CHARSET
          Title.Font.Color = clNavy
          Title.Font.Height = -11
          Title.Font.Name = 'MS Sans Serif'
          Title.Font.Style = [fsBold]
          Width = 107
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'FECHA_EMISION'
          Title.Alignment = taCenter
          Title.Caption = 'Emisi'#243'n'
          Title.Font.Charset = DEFAULT_CHARSET
          Title.Font.Color = clNavy
          Title.Font.Height = -11
          Title.Font.Name = 'MS Sans Serif'
          Title.Font.Style = [fsBold]
          Width = 76
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'FECHA_COBRO'
          Title.Alignment = taCenter
          Title.Caption = 'Cobro'
          Title.Font.Charset = DEFAULT_CHARSET
          Title.Font.Color = clNavy
          Title.Font.Height = -11
          Title.Font.Name = 'MS Sans Serif'
          Title.Font.Style = [fsBold]
          Width = 77
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'IMPORTE'
          Title.Alignment = taCenter
          Title.Caption = 'Importe'
          Title.Font.Charset = DEFAULT_CHARSET
          Title.Font.Color = clNavy
          Title.Font.Height = -11
          Title.Font.Name = 'MS Sans Serif'
          Title.Font.Style = [fsBold]
          Visible = True
        end>
    end
    object swBloqueo: TRxSwitch
      Left = 195
      Top = 246
      Width = 50
      Height = 39
      Caption = 'swBloqueo'
      TabOrder = 10
      Anchors = [akLeft, akBottom]
      OnClick = swBloqueoClick
    end
  end
  object Panel4: TPanel
    Left = 0
    Top = 515
    Width = 652
    Height = 145
    Align = alBottom
    Color = clMedGray
    TabOrder = 2
    DesignSize = (
      652
      145)
    object Label1: TLabel
      Left = 8
      Top = 9
      Width = 95
      Height = 13
      Caption = 'Banco / Cuenta:'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWhite
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label2: TLabel
      Left = 203
      Top = 9
      Width = 50
      Height = 13
      Caption = 'Cheques'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWhite
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object btNuevoCheque: TSpeedButton
      Left = 274
      Top = 5
      Width = 98
      Height = 19
      Caption = 'Nuevo Cheque'
      Enabled = False
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      OnClick = btNuevoChequeClick
    end
    object SpeedButton2: TSpeedButton
      Left = 113
      Top = 5
      Width = 82
      Height = 20
      Caption = 'Abrir Datos'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      OnClick = SpeedButton2Click
    end
    object RxDBGrid1: TRxDBGrid
      Left = 8
      Top = 24
      Width = 185
      Height = 113
      Anchors = [akLeft, akTop, akBottom]
      DataSource = sBYC
      Options = [dgColumnResize, dgColLines, dgRowLines, dgConfirmDelete, dgCancelOnExit]
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      Columns = <
        item
          Expanded = False
          FieldName = 'BYC'
          Visible = True
        end>
    end
    object RxDBGrid2: TRxDBGrid
      Left = 200
      Top = 24
      Width = 447
      Height = 113
      Anchors = [akLeft, akTop, akRight, akBottom]
      DataSource = sCheque
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgConfirmDelete, dgCancelOnExit]
      TabOrder = 1
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      OnDblClick = RxDBGrid2DblClick
      OnTitleClick = RxDBGrid2TitleClick
      Columns = <
        item
          Expanded = False
          FieldName = 'CHEQUE'
          Title.Alignment = taCenter
          Title.Caption = 'Cheque'
          Title.Font.Charset = DEFAULT_CHARSET
          Title.Font.Color = clNavy
          Title.Font.Height = -11
          Title.Font.Name = 'MS Sans Serif'
          Title.Font.Style = [fsBold]
          Width = 143
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'FECHA_EMISION'
          Title.Alignment = taCenter
          Title.Caption = 'Emisi'#243'n'
          Title.Font.Charset = DEFAULT_CHARSET
          Title.Font.Color = clNavy
          Title.Font.Height = -11
          Title.Font.Name = 'MS Sans Serif'
          Title.Font.Style = [fsBold]
          Width = 70
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'FECHA_COBRO'
          Title.Alignment = taCenter
          Title.Caption = 'Cobro'
          Title.Font.Charset = DEFAULT_CHARSET
          Title.Font.Color = clNavy
          Title.Font.Height = -11
          Title.Font.Name = 'MS Sans Serif'
          Title.Font.Style = [fsBold]
          Width = 70
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'IMPORTE'
          Title.Alignment = taCenter
          Title.Caption = 'Importe'
          Title.Font.Charset = DEFAULT_CHARSET
          Title.Font.Color = clNavy
          Title.Font.Height = -11
          Title.Font.Name = 'MS Sans Serif'
          Title.Font.Style = [fsBold]
          Width = 74
          Visible = True
        end>
    end
    object desdeCheques: TDateEdit
      Left = 548
      Top = 2
      Width = 99
      Height = 21
      Anchors = [akTop, akRight]
      NumGlyphs = 2
      TabOrder = 2
      OnChange = desdeChequesChange
    end
  end
  object Con: TSQLConnection
    Connected = True
    ConnectionName = 'IBLocal'
    DriverName = 'Interbase'
    GetDriverFunc = 'getSQLDriverINTERBASE'
    LibraryName = 'dbexpint.dll'
    LoginPrompt = False
    Params.Strings = (
      'BlobSize=-1'
      'CommitRetain=True'
      'Database=192.168.0.200:bdstp1'
      'DriverName=Interbase'
      'ErrorResourceFile='
      'LocaleCode=0000'
      'Password=4884mifa'
      'RoleName=RoleName'
      'ServerCharSet='
      'SQLDialect=1'
      'Interbase TransIsolation=ReadCommited'
      'User_Name=sysdba'
      'WaitOnLocks=True')
    VendorLib = 'GDS32.DLL'
    Left = 96
    Top = 72
  end
  object cdsOrdenPago: TSQLClientDataSet
    Active = True
    CommandText = 'select * from  ORDEN_PAGO order by NUMERO desc'
    Aggregates = <>
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <>
    AfterScroll = cdsOrdenPagoAfterScroll
    OnNewRecord = cdsOrdenPagoNewRecord
    DBConnection = Con
    Left = 432
    Top = 274
    object cdsOrdenPagoNUMERO: TIntegerField
      FieldName = 'NUMERO'
      Required = True
      DisplayFormat = '0001'#39'-'#39'00000000'
    end
    object cdsOrdenPagoID_PROVEEDOR: TSmallintField
      FieldName = 'ID_PROVEEDOR'
      Required = True
      OnChange = cdsOrdenPagoID_PROVEEDORChange
    end
    object cdsOrdenPagoCUIT: TStringField
      FieldKind = fkLookup
      FieldName = 'CUIT'
      LookupDataSet = cdsProveedor
      LookupKeyFields = 'ID_PROVEEDOR'
      LookupResultField = 'CUIT'
      KeyFields = 'ID_PROVEEDOR'
      Lookup = True
    end
    object cdsOrdenPagoFECHA: TSQLTimeStampField
      FieldName = 'FECHA'
      Required = True
      EditMask = '00-00000000-0;1;_'
    end
    object cdsOrdenPagoALICUOTA_RETENCION: TFloatField
      FieldName = 'ALICUOTA_RETENCION'
      Required = True
      OnChange = cdsOrdenPagoALICUOTA_RETENCIONChange
      DisplayFormat = '##0.00'
    end
    object cdsOrdenPagoproveedor: TStringField
      FieldKind = fkLookup
      FieldName = 'proveedor'
      LookupDataSet = cdsProveedor
      LookupKeyFields = 'ID_PROVEEDOR'
      LookupResultField = 'RAZON'
      KeyFields = 'ID_PROVEEDOR'
      Size = 50
      Lookup = True
    end
    object cdsOrdenPagoBLOQUEO: TStringField
      FieldName = 'BLOQUEO'
      Required = True
      Size = 1
    end
  end
  object cdsRenglon_OrdenPago: TSQLClientDataSet
    Active = True
    CommandText = 
      'select ID_COMPRA, NUMERO, ID_TIPO, NETO, IVA, PIB, DESCUENTO, CO' +
      'MPROBANTE, FECHA, RENGLON'#13#10'from RENGLON_ORDEN_PAGO'#13#10'where NUMERO' +
      ' = :id'
    Aggregates = <>
    AggregatesActive = True
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <
      item
        DataType = ftInteger
        Name = 'id'
        ParamType = ptInput
      end>
    OnCalcFields = cdsRenglon_OrdenPagoCalcFields
    OnNewRecord = cdsRenglon_OrdenPagoNewRecord
    DBConnection = Con
    Left = 496
    Top = 274
    object cdsRenglon_OrdenPagoID_COMPRA: TIntegerField
      FieldName = 'ID_COMPRA'
    end
    object cdsRenglon_OrdenPagoNUMERO: TIntegerField
      FieldName = 'NUMERO'
      Required = True
    end
    object cdsRenglon_OrdenPagoimporte: TFloatField
      FieldKind = fkInternalCalc
      FieldName = 'importe'
      DisplayFormat = '#,###,##0.00'
    end
    object cdsRenglon_OrdenPagoID_TIPO: TSmallintField
      FieldName = 'ID_TIPO'
      Required = True
    end
    object cdsRenglon_OrdenPagotipo: TStringField
      FieldKind = fkLookup
      FieldName = 'tipo'
      LookupDataSet = cdsTipo
      LookupKeyFields = 'ID_TIPO'
      LookupResultField = 'TIPO'
      KeyFields = 'ID_TIPO'
      Size = 2
      Lookup = True
    end
    object cdsRenglon_OrdenPagoNETO: TFloatField
      FieldName = 'NETO'
      Required = True
      DisplayFormat = '#,###,##0.00'
    end
    object cdsRenglon_OrdenPagoIVA: TFloatField
      FieldName = 'IVA'
      Required = True
      DisplayFormat = '#,###,##0.00'
    end
    object cdsRenglon_OrdenPagoPIB: TFloatField
      FieldName = 'PIB'
      Required = True
      DisplayFormat = '#,###,##0.00'
    end
    object cdsRenglon_OrdenPagoDESCUENTO: TFloatField
      FieldName = 'DESCUENTO'
      Required = True
      DisplayFormat = '#,###,##0.00'
    end
    object cdsRenglon_OrdenPagoCOMPROBANTE: TIntegerField
      FieldName = 'COMPROBANTE'
      Required = True
    end
    object cdsRenglon_OrdenPagoFECHA: TSQLTimeStampField
      FieldName = 'FECHA'
      Required = True
      DisplayFormat = 'dd/mm/yy'
      EditMask = '!99/99/00;1;_'
    end
    object cdsRenglon_OrdenPagoretencion: TFloatField
      FieldKind = fkInternalCalc
      FieldName = 'retencion'
    end
    object cdsRenglon_OrdenPagoRENGLON: TSmallintField
      FieldName = 'RENGLON'
      Required = True
    end
    object cdsRenglon_OrdenPagototalRetencion: TAggregateField
      Alignment = taRightJustify
      FieldName = 'totalRetencion'
      Visible = True
      Active = True
      DisplayFormat = '#,###,##0.00'
      Expression = 'sum(retencion)'
    end
    object cdsRenglon_OrdenPagototalImporte: TAggregateField
      FieldName = 'totalImporte'
      Visible = True
      Active = True
      DisplayFormat = '#,###,##0.00'
      Expression = 'sum(importe)'
    end
  end
  object cdsProveedor: TSQLClientDataSet
    Active = True
    CommandText = 
      'select P.ID_PROVEEDOR, P.RAZON, P.CUIT, P.DOMICILIO, L.LOCALIDAD' +
      ',PR.PROVINCIA,P.TITULAR '#13#10'from PROVEEDOR P, LOCALIDAD L, PROVINC' +
      'IA PR'#13#10'where P.ID_LOCALIDAD = L.ID_LOCALIDAD and L.ID_PROVINCIA ' +
      '= PR.ID_PROVINCIA'#13#10'order by P.RAZON'
    Aggregates = <>
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <>
    DBConnection = Con
    Left = 368
    Top = 274
    object cdsProveedorID_PROVEEDOR: TSmallintField
      FieldName = 'ID_PROVEEDOR'
      Required = True
    end
    object cdsProveedorRAZON: TStringField
      FieldName = 'RAZON'
      Required = True
      Size = 40
    end
    object cdsProveedorCUIT: TStringField
      FieldName = 'CUIT'
      Size = 13
    end
    object cdsProveedorDOMICILIO: TStringField
      FieldName = 'DOMICILIO'
      Size = 50
    end
    object cdsProveedorLOCALIDAD: TStringField
      FieldName = 'LOCALIDAD'
      Required = True
      Size = 30
    end
    object cdsProveedorPROVINCIA: TStringField
      FieldName = 'PROVINCIA'
      Required = True
      Size = 30
    end
    object cdsProveedorTITULAR: TStringField
      FieldName = 'TITULAR'
      Size = 255
    end
  end
  object sProveedor: TDataSource
    DataSet = cdsProveedor
    Left = 400
    Top = 274
  end
  object sOrdenPago: TDataSource
    DataSet = cdsOrdenPago
    OnStateChange = sOrdenPagoStateChange
    Left = 464
    Top = 274
  end
  object sRenglon_OrdenPago: TDataSource
    DataSet = cdsRenglon_OrdenPago
    OnStateChange = sOrdenPagoStateChange
    Left = 528
    Top = 274
  end
  object cdsCompras: TSQLClientDataSet
    CommandText = 
      'select ID_COMPRA, LETRA, NUMERO, TOTAL, IVA, PIB, DESCUENTO, FEC' +
      'HA '#13#10'from COMPRA'#13#10'where ID_PROVEEDOR = :id'#13#10'and FECHA >= :fech'#13#10 +
      'order by FECHA'#13#10
    Aggregates = <>
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <
      item
        DataType = ftSmallint
        Name = 'id'
        ParamType = ptInput
      end
      item
        DataType = ftTimeStamp
        Name = 'fech'
        ParamType = ptInput
      end>
    OnCalcFields = cdsComprasCalcFields
    DBConnection = Con
    Left = 208
    Top = 72
    object cdsComprasID_COMPRA: TIntegerField
      FieldName = 'ID_COMPRA'
      Required = True
    end
    object cdsComprasLETRA: TStringField
      FieldName = 'LETRA'
      Size = 1
    end
    object cdsComprasNUMERO: TIntegerField
      FieldName = 'NUMERO'
    end
    object cdsComprasTOTAL: TFloatField
      FieldName = 'TOTAL'
      DisplayFormat = '#,###,##0.00'
    end
    object cdsComprasIVA: TFloatField
      FieldName = 'IVA'
      DisplayFormat = '#,###,##0'
    end
    object cdsComprasPIB: TFloatField
      FieldName = 'PIB'
      Required = True
      DisplayFormat = '#,###,##0.00'
    end
    object cdsComprasDESCUENTO: TFloatField
      FieldName = 'DESCUENTO'
      DisplayFormat = '#,###,##0'
    end
    object cdsComprasFECHA: TSQLTimeStampField
      FieldName = 'FECHA'
      Required = True
      DisplayFormat = 'dd/mm/yy'
    end
    object cdsComprastotalGral: TFloatField
      FieldKind = fkInternalCalc
      FieldName = 'totalGral'
      DisplayFormat = '#,###,##0.00'
    end
  end
  object sCompras: TDataSource
    DataSet = cdsCompras
    OnStateChange = sComprasStateChange
    Left = 176
    Top = 72
  end
  object sTipo: TDataSource
    DataSet = cdsTipo
    Left = 400
    Top = 242
  end
  object cdsTipo: TSQLClientDataSet
    Active = True
    CommandText = 'TIPO_COMPROBANTE'
    Aggregates = <>
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <>
    CommandType = ctTable
    DBConnection = Con
    Left = 368
    Top = 242
    object cdsTipoID_TIPO: TSmallintField
      FieldName = 'ID_TIPO'
      Required = True
    end
    object cdsTipoTIPO: TStringField
      FieldName = 'TIPO'
      Required = True
      Size = 2
    end
  end
  object reporte: TppReport
    PrinterSetup.BinName = 'Default'
    PrinterSetup.DocumentName = 'Report'
    PrinterSetup.PaperName = 'A4'
    PrinterSetup.PrinterName = 'Default'
    PrinterSetup.mmMarginBottom = 15000
    PrinterSetup.mmMarginLeft = 20000
    PrinterSetup.mmMarginRight = 10000
    PrinterSetup.mmMarginTop = 15000
    PrinterSetup.mmPaperHeight = 297000
    PrinterSetup.mmPaperWidth = 210000
    PrinterSetup.PaperSize = 9
    Units = utMillimeters
    BeforePrint = reporteBeforePrint
    DeviceType = 'Screen'
    OutlineSettings.CreateNode = False
    OutlineSettings.CreatePageNodes = False
    OutlineSettings.Enabled = False
    OutlineSettings.Visible = False
    PreviewFormSettings.ZoomSetting = zsPageWidth
    TextSearchSettings.DefaultString = '<FindText>'
    TextSearchSettings.Enabled = True
    Left = 128
    Top = 264
    Version = '9.01'
    mmColumnWidth = 0
    object ppHeaderBand1: TppHeaderBand
      mmBottomOffset = 0
      mmHeight = 35719
      mmPrintPosition = 0
      object ppDBImage1: TppDBImage
        UserName = 'DBImage1'
        MaintainAspectRatio = True
        Stretch = True
        Border.BorderPositions = []
        Border.Color = clBlack
        Border.Style = psSolid
        Border.Visible = False
        Border.Weight = 1
        DataField = 'LOGO'
        DataPipeline = ppDBEmpresa
        GraphicType = 'Bitmap'
        ParentDataPipeline = False
        DataPipelineName = 'ppDBEmpresa'
        mmHeight = 24871
        mmLeft = 0
        mmTop = 0
        mmWidth = 62971
        BandType = 0
      end
      object ppDBText1: TppDBText
        UserName = 'DBText1'
        AutoSize = True
        Border.BorderPositions = []
        Border.Color = clBlack
        Border.Style = psSolid
        Border.Visible = False
        Border.Weight = 1
        DataField = 'D'
        DataPipeline = ppDBEmpresa
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = 'Arial'
        Font.Size = 10
        Font.Style = []
        ParentDataPipeline = False
        Transparent = True
        DataPipelineName = 'ppDBEmpresa'
        mmHeight = 4022
        mmLeft = 24871
        mmTop = 20373
        mmWidth = 2540
        BandType = 0
      end
      object ppDBText2: TppDBText
        UserName = 'DBText2'
        AutoSize = True
        Border.BorderPositions = []
        Border.Color = clBlack
        Border.Style = psSolid
        Border.Visible = False
        Border.Weight = 1
        DataField = 'CUIT'
        DataPipeline = ppDBEmpresa
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = 'Arial'
        Font.Size = 10
        Font.Style = []
        ParentDataPipeline = False
        Transparent = True
        DataPipelineName = 'ppDBEmpresa'
        mmHeight = 4022
        mmLeft = 24871
        mmTop = 25135
        mmWidth = 8255
        BandType = 0
      end
      object ppLabel1: TppLabel
        UserName = 'Label1'
        Border.BorderPositions = []
        Border.Color = clBlack
        Border.Style = psSolid
        Border.Visible = False
        Border.Weight = 1
        Caption = 'C.U.I.T.:'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = 'Arial'
        Font.Size = 10
        Font.Style = []
        Transparent = True
        mmHeight = 4022
        mmLeft = 4498
        mmTop = 25400
        mmWidth = 13123
        BandType = 0
      end
      object ppLabel2: TppLabel
        UserName = 'Label2'
        Border.BorderPositions = []
        Border.Color = clBlack
        Border.Style = psSolid
        Border.Visible = False
        Border.Weight = 1
        Caption = 'N'#186' Agente:'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = 'Arial'
        Font.Size = 10
        Font.Style = []
        Transparent = True
        mmHeight = 4022
        mmLeft = 4498
        mmTop = 30427
        mmWidth = 16849
        BandType = 0
      end
      object ppDBText3: TppDBText
        UserName = 'DBText3'
        AutoSize = True
        Border.BorderPositions = []
        Border.Color = clBlack
        Border.Style = psSolid
        Border.Visible = False
        Border.Weight = 1
        DataField = 'IB'
        DataPipeline = ppDBEmpresa
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = 'Arial'
        Font.Size = 10
        Font.Style = []
        ParentDataPipeline = False
        Transparent = True
        DataPipelineName = 'ppDBEmpresa'
        mmHeight = 4022
        mmLeft = 24871
        mmTop = 30163
        mmWidth = 3302
        BandType = 0
      end
      object ppLine1: TppLine
        UserName = 'Line1'
        Border.BorderPositions = []
        Border.Color = clBlack
        Border.Style = psSolid
        Border.Visible = False
        Border.Weight = 1
        Pen.Color = clGrayText
        Pen.Width = 2
        Weight = 1.5
        mmHeight = 529
        mmLeft = 0
        mmTop = 35190
        mmWidth = 179917
        BandType = 0
      end
    end
    object ppDetailBand1: TppDetailBand
      PrintHeight = phDynamic
      mmBottomOffset = 0
      mmHeight = 5027
      mmPrintPosition = 0
      object ppSubReport1: TppSubReport
        UserName = 'SubReport1'
        ExpandAll = False
        NewPrintJob = False
        OutlineSettings.CreateNode = True
        TraverseAllData = True
        DataPipelineName = 'ppDBRenglon'
        mmHeight = 5027
        mmLeft = 0
        mmTop = 0
        mmWidth = 180000
        BandType = 4
        mmBottomOffset = 0
        mmOverFlowOffset = 0
        mmStopPosition = 0
        object ppChildReport1: TppChildReport
          AutoStop = False
          DataPipeline = ppDBRenglon
          PrinterSetup.BinName = 'Default'
          PrinterSetup.DocumentName = 'Report'
          PrinterSetup.PaperName = 'A4'
          PrinterSetup.PrinterName = 'Default'
          PrinterSetup.mmMarginBottom = 15000
          PrinterSetup.mmMarginLeft = 20000
          PrinterSetup.mmMarginRight = 10000
          PrinterSetup.mmMarginTop = 15000
          PrinterSetup.mmPaperHeight = 297000
          PrinterSetup.mmPaperWidth = 210000
          PrinterSetup.PaperSize = 9
          Units = utMillimeters
          Version = '9.01'
          mmColumnWidth = 0
          DataPipelineName = 'ppDBRenglon'
          object ppTitleBand1: TppTitleBand
            mmBottomOffset = 0
            mmHeight = 27252
            mmPrintPosition = 0
            object ppLabel7: TppLabel
              UserName = 'Label7'
              Border.BorderPositions = []
              Border.Color = clBlack
              Border.Style = psSolid
              Border.Visible = False
              Border.Weight = 1
              Caption = 'Tipo'
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clBlack
              Font.Name = 'Arial'
              Font.Size = 10
              Font.Style = [fsBold]
              Transparent = True
              mmHeight = 4233
              mmLeft = 29369
              mmTop = 22225
              mmWidth = 7408
              BandType = 1
            end
            object ppLabel8: TppLabel
              UserName = 'Label8'
              Border.BorderPositions = []
              Border.Color = clBlack
              Border.Style = psSolid
              Border.Visible = False
              Border.Weight = 1
              Caption = 'N'#186' Comprobante'
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clBlack
              Font.Name = 'Arial'
              Font.Size = 10
              Font.Style = [fsBold]
              Transparent = True
              mmHeight = 4233
              mmLeft = 44186
              mmTop = 22225
              mmWidth = 27781
              BandType = 1
            end
            object ppLabel9: TppLabel
              UserName = 'Label9'
              Border.BorderPositions = []
              Border.Color = clBlack
              Border.Style = psSolid
              Border.Visible = False
              Border.Weight = 1
              Caption = 'Fecha Vto.'
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clBlack
              Font.Name = 'Arial'
              Font.Size = 10
              Font.Style = [fsBold]
              Transparent = True
              mmHeight = 4233
              mmLeft = 85990
              mmTop = 22225
              mmWidth = 17727
              BandType = 1
            end
            object ppLabel10: TppLabel
              UserName = 'Label10'
              Border.BorderPositions = []
              Border.Color = clBlack
              Border.Style = psSolid
              Border.Visible = False
              Border.Weight = 1
              Caption = 'Importe'
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clBlack
              Font.Name = 'Arial'
              Font.Size = 10
              Font.Style = [fsBold]
              Transparent = True
              mmHeight = 4233
              mmLeft = 136261
              mmTop = 22225
              mmWidth = 12965
              BandType = 1
            end
            object ppLine3: TppLine
              UserName = 'Line3'
              Border.BorderPositions = []
              Border.Color = clBlack
              Border.Style = psSolid
              Border.Visible = False
              Border.Weight = 1
              Pen.Color = clGrayText
              Pen.Width = 2
              Weight = 1.5
              mmHeight = 529
              mmLeft = 0
              mmTop = 26723
              mmWidth = 180182
              BandType = 1
            end
            object ppLabel3: TppLabel
              UserName = 'Label3'
              Border.BorderPositions = []
              Border.Color = clBlack
              Border.Style = psSolid
              Border.Visible = False
              Border.Weight = 1
              Caption = 'N'#186' Orden de Pago'
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clBlack
              Font.Name = 'Arial'
              Font.Size = 10
              Font.Style = []
              Transparent = True
              mmHeight = 3969
              mmLeft = 2381
              mmTop = 6085
              mmWidth = 28575
              BandType = 1
            end
            object ppLabel5: TppLabel
              UserName = 'Label5'
              Border.BorderPositions = []
              Border.Color = clBlack
              Border.Style = psSolid
              Border.Visible = False
              Border.Weight = 1
              Caption = 'Proveedor:'
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clBlack
              Font.Name = 'Arial'
              Font.Size = 10
              Font.Style = []
              Transparent = True
              mmHeight = 3969
              mmLeft = 2381
              mmTop = 11377
              mmWidth = 17198
              BandType = 1
            end
            object ppLabel6: TppLabel
              UserName = 'Label6'
              Border.BorderPositions = []
              Border.Color = clBlack
              Border.Style = psSolid
              Border.Visible = False
              Border.Weight = 1
              Caption = 'C.U.I.T.:'
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clBlack
              Font.Name = 'Arial'
              Font.Size = 10
              Font.Style = []
              Transparent = True
              mmHeight = 3969
              mmLeft = 2381
              mmTop = 16669
              mmWidth = 13229
              BandType = 1
            end
            object ppDBText7: TppDBText
              UserName = 'DBText7'
              AutoSize = True
              Border.BorderPositions = []
              Border.Color = clBlack
              Border.Style = psSolid
              Border.Visible = False
              Border.Weight = 1
              DataField = 'CUIT'
              DataPipeline = ppDBOrdenPago
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clBlack
              Font.Name = 'Arial'
              Font.Size = 12
              Font.Style = [fsBold]
              ParentDataPipeline = False
              Transparent = True
              DataPipelineName = 'ppDBOrdenPago'
              mmHeight = 4995
              mmLeft = 38100
              mmTop = 15610
              mmWidth = 28871
              BandType = 1
            end
            object ppDBText6: TppDBText
              UserName = 'DBText6'
              AutoSize = True
              Border.BorderPositions = []
              Border.Color = clBlack
              Border.Style = psSolid
              Border.Visible = False
              Border.Weight = 1
              DataField = 'proveedor'
              DataPipeline = ppDBOrdenPago
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clBlack
              Font.Name = 'Arial'
              Font.Size = 12
              Font.Style = [fsBold]
              ParentDataPipeline = False
              Transparent = True
              DataPipelineName = 'ppDBOrdenPago'
              mmHeight = 4995
              mmLeft = 38100
              mmTop = 10319
              mmWidth = 63288
              BandType = 1
            end
            object ppDBText4: TppDBText
              UserName = 'DBText4'
              AutoSize = True
              Border.BorderPositions = []
              Border.Color = clBlack
              Border.Style = psSolid
              Border.Visible = False
              Border.Weight = 1
              DataField = 'NUMERO'
              DataPipeline = ppDBOrdenPago
              DisplayFormat = '0001'#39'-'#39'00000000'
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clBlack
              Font.Name = 'Arial'
              Font.Size = 12
              Font.Style = [fsBold]
              ParentDataPipeline = False
              Transparent = True
              DataPipelineName = 'ppDBOrdenPago'
              mmHeight = 4995
              mmLeft = 38100
              mmTop = 5027
              mmWidth = 29845
              BandType = 1
            end
            object ppLabel4: TppLabel
              UserName = 'Label4'
              Anchors = [atTop, atRight]
              Border.BorderPositions = []
              Border.Color = clBlack
              Border.Style = psSolid
              Border.Visible = False
              Border.Weight = 1
              Caption = 'Fecha:'
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clBlack
              Font.Name = 'Arial'
              Font.Size = 10
              Font.Style = []
              TextAlignment = taRightJustified
              Transparent = True
              mmHeight = 4022
              mmLeft = 143669
              mmTop = 6350
              mmWidth = 10753
              BandType = 1
            end
            object ppDBText5: TppDBText
              UserName = 'DBText5'
              Anchors = [atTop, atRight]
              Border.BorderPositions = []
              Border.Color = clBlack
              Border.Style = psSolid
              Border.Visible = False
              Border.Weight = 1
              DataField = 'FECHA'
              DataPipeline = ppDBOrdenPago
              DisplayFormat = 'dd/mm/yy'
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clBlack
              Font.Name = 'Arial'
              Font.Size = 12
              Font.Style = [fsBold]
              ParentDataPipeline = False
              TextAlignment = taRightJustified
              Transparent = True
              DataPipelineName = 'ppDBOrdenPago'
              mmHeight = 4995
              mmLeft = 158486
              mmTop = 5821
              mmWidth = 17198
              BandType = 1
            end
            object ppLabel15: TppLabel
              UserName = 'Label15'
              Anchors = [atTop, atRight]
              Border.BorderPositions = []
              Border.Color = clBlack
              Border.Style = psSolid
              Border.Visible = False
              Border.Weight = 1
              Caption = 'ORDEN DE PAGO'
              Font.Charset = ANSI_CHARSET
              Font.Color = clBlack
              Font.Name = 'Arial Narrow'
              Font.Size = 12
              Font.Style = [fsBold]
              TextAlignment = taRightJustified
              Transparent = True
              mmHeight = 4911
              mmLeft = 146050
              mmTop = 265
              mmWidth = 29549
              BandType = 1
            end
            object ppLine2: TppLine
              UserName = 'Line2'
              Border.BorderPositions = []
              Border.Color = clBlack
              Border.Style = psSolid
              Border.Visible = False
              Border.Weight = 1
              Pen.Color = clGrayText
              Pen.Width = 2
              Weight = 1.5
              mmHeight = 529
              mmLeft = 0
              mmTop = 21167
              mmWidth = 179652
              BandType = 1
            end
          end
          object ppDetailBand2: TppDetailBand
            PrintHeight = phDynamic
            mmBottomOffset = 0
            mmHeight = 4498
            mmPrintPosition = 0
            object ppDBText8: TppDBText
              UserName = 'DBText8'
              Border.BorderPositions = []
              Border.Color = clBlack
              Border.Style = psSolid
              Border.Visible = False
              Border.Weight = 1
              DataField = 'tipo'
              DataPipeline = ppDBRenglon
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clBlack
              Font.Name = 'Arial'
              Font.Size = 10
              Font.Style = []
              ParentDataPipeline = False
              ReprintOnSubsequent = True
              TextAlignment = taCentered
              Transparent = True
              DataPipelineName = 'ppDBRenglon'
              mmHeight = 4022
              mmLeft = 30163
              mmTop = 265
              mmWidth = 7673
              BandType = 4
            end
            object ppDBText9: TppDBText
              UserName = 'DBText9'
              AutoSize = True
              Border.BorderPositions = []
              Border.Color = clBlack
              Border.Style = psSolid
              Border.Visible = False
              Border.Weight = 1
              DataField = 'COMPROBANTE'
              DataPipeline = ppDBRenglon
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clBlack
              Font.Name = 'Arial'
              Font.Size = 10
              Font.Style = []
              ParentDataPipeline = False
              TextAlignment = taRightJustified
              Transparent = True
              DataPipelineName = 'ppDBRenglon'
              mmHeight = 4022
              mmLeft = 45773
              mmTop = 265
              mmWidth = 27559
              BandType = 4
            end
            object ppDBText10: TppDBText
              UserName = 'DBText10'
              AutoSize = True
              Border.BorderPositions = []
              Border.Color = clBlack
              Border.Style = psSolid
              Border.Visible = False
              Border.Weight = 1
              DataField = 'FECHA'
              DataPipeline = ppDBRenglon
              DisplayFormat = 'dd/mm/yy'
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clBlack
              Font.Name = 'Arial'
              Font.Size = 10
              Font.Style = []
              ParentDataPipeline = False
              TextAlignment = taCentered
              Transparent = True
              DataPipelineName = 'ppDBRenglon'
              mmHeight = 4022
              mmLeft = 89959
              mmTop = 265
              mmWidth = 11896
              BandType = 4
            end
            object ppDBText11: TppDBText
              UserName = 'DBText101'
              AutoSize = True
              Border.BorderPositions = []
              Border.Color = clBlack
              Border.Style = psSolid
              Border.Visible = False
              Border.Weight = 1
              DataField = 'importe'
              DataPipeline = ppDBRenglon
              DisplayFormat = '#,###,##0.00'
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clBlack
              Font.Name = 'Arial'
              Font.Size = 10
              Font.Style = []
              ParentDataPipeline = False
              TextAlignment = taRightJustified
              Transparent = True
              DataPipelineName = 'ppDBRenglon'
              mmHeight = 4022
              mmLeft = 138642
              mmTop = 265
              mmWidth = 11769
              BandType = 4
            end
          end
          object ppSummaryBand1: TppSummaryBand
            PrintHeight = phDynamic
            mmBottomOffset = 0
            mmHeight = 40481
            mmPrintPosition = 0
            object ppLine7: TppLine
              UserName = 'Line7'
              Border.BorderPositions = []
              Border.Color = clBlack
              Border.Style = psSolid
              Border.Visible = False
              Border.Weight = 1
              Pen.Color = cl3DLight
              Pen.Width = 2
              Weight = 1.5
              mmHeight = 529
              mmLeft = 0
              mmTop = 0
              mmWidth = 179917
              BandType = 7
            end
            object ppDBCalc1: TppDBCalc
              UserName = 'DBCalc1'
              AutoSize = True
              Border.BorderPositions = []
              Border.Color = clBlack
              Border.Style = psSolid
              Border.Visible = False
              Border.Weight = 1
              DataField = 'RETENCION'
              DataPipeline = ppDBRenglon
              DisplayFormat = '#,###,##0.00'
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clBlack
              Font.Name = 'Arial'
              Font.Size = 10
              Font.Style = []
              TextAlignment = taRightJustified
              Transparent = True
              DataPipelineName = 'ppDBRenglon'
              mmHeight = 4022
              mmLeft = 126460
              mmTop = 14288
              mmWidth = 24088
              BandType = 7
            end
            object ppLabel11: TppLabel
              UserName = 'Label11'
              Border.BorderPositions = []
              Border.Color = clBlack
              Border.Style = psSolid
              Border.Visible = False
              Border.Weight = 1
              Caption = 'PAGO A CUENTA:'
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clBlack
              Font.Name = 'Arial'
              Font.Size = 10
              Font.Style = []
              Transparent = True
              mmHeight = 3969
              mmLeft = 58208
              mmTop = 3704
              mmWidth = 29898
              BandType = 7
            end
            object ppDBCalc2: TppDBCalc
              UserName = 'DBCalc2'
              AutoSize = True
              Border.BorderPositions = []
              Border.Color = clBlack
              Border.Style = psSolid
              Border.Visible = False
              Border.Weight = 1
              DataField = 'importe'
              DataPipeline = ppDBRenglon
              DisplayFormat = '#,###,##0.00'
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clBlack
              Font.Name = 'Arial'
              Font.Size = 10
              Font.Style = []
              TextAlignment = taRightJustified
              Transparent = True
              DataPipelineName = 'ppDBRenglon'
              mmHeight = 4022
              mmLeft = 129392
              mmTop = 3704
              mmWidth = 21421
              BandType = 7
            end
            object ppLabel12: TppLabel
              UserName = 'Label12'
              Border.BorderPositions = []
              Border.Color = clBlack
              Border.Style = psSolid
              Border.Visible = False
              Border.Weight = 1
              Caption = 'TOTAL.'
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clBlack
              Font.Name = 'Arial'
              Font.Size = 10
              Font.Style = [fsBold]
              Transparent = True
              mmHeight = 4191
              mmLeft = 58208
              mmTop = 7938
              mmWidth = 12700
              BandType = 7
            end
            object ppDBCalc3: TppDBCalc
              UserName = 'DBCalc3'
              AutoSize = True
              Border.BorderPositions = []
              Border.Color = clBlack
              Border.Style = psSolid
              Border.Visible = False
              Border.Weight = 1
              DataField = 'importe'
              DataPipeline = ppDBRenglon
              DisplayFormat = '#,###,##0.00'
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clBlack
              Font.Name = 'Arial'
              Font.Size = 10
              Font.Style = [fsBold]
              TextAlignment = taRightJustified
              Transparent = True
              DataPipelineName = 'ppDBRenglon'
              mmHeight = 4191
              mmLeft = 127901
              mmTop = 7938
              mmWidth = 22902
              BandType = 7
            end
            object ppLabel13: TppLabel
              UserName = 'Label13'
              Border.BorderPositions = []
              Border.Color = clBlack
              Border.Style = psSolid
              Border.Visible = False
              Border.Weight = 1
              Caption = 'RETENCION INGRESOS BRUTOS'
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clBlack
              Font.Name = 'Arial'
              Font.Size = 10
              Font.Style = []
              Transparent = True
              mmHeight = 4022
              mmLeft = 58208
              mmTop = 14288
              mmWidth = 55922
              BandType = 7
            end
            object ppLabel14: TppLabel
              UserName = 'Label14'
              Border.BorderPositions = []
              Border.Color = clBlack
              Border.Style = psSolid
              Border.Visible = False
              Border.Weight = 1
              Caption = 'NETO A ABONAR.'
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clBlack
              Font.Name = 'Arial'
              Font.Size = 10
              Font.Style = [fsBold]
              Transparent = True
              mmHeight = 4191
              mmLeft = 58208
              mmTop = 18521
              mmWidth = 30353
              BandType = 7
            end
            object ppNeto: TppLabel
              UserName = 'Neto'
              Border.BorderPositions = []
              Border.Color = clBlack
              Border.Style = psSolid
              Border.Visible = False
              Border.Weight = 1
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clBlack
              Font.Name = 'Arial'
              Font.Size = 10
              Font.Style = [fsBold]
              TextAlignment = taRightJustified
              Transparent = True
              mmHeight = 3979
              mmLeft = 134938
              mmTop = 18521
              mmWidth = 15875
              BandType = 7
            end
            object ppSubReport2: TppSubReport
              UserName = 'SubReport2'
              ExpandAll = False
              NewPrintJob = False
              OutlineSettings.CreateNode = True
              TraverseAllData = False
              DataPipelineName = 'ppDBCheques'
              mmHeight = 5027
              mmLeft = 0
              mmTop = 35454
              mmWidth = 180000
              BandType = 7
              mmBottomOffset = 0
              mmOverFlowOffset = 0
              mmStopPosition = 0
              object ppChildReport2: TppChildReport
                AutoStop = False
                DataPipeline = ppDBCheques
                PrinterSetup.BinName = 'Default'
                PrinterSetup.DocumentName = 'Report'
                PrinterSetup.PaperName = 'A4'
                PrinterSetup.PrinterName = 'Default'
                PrinterSetup.mmMarginBottom = 15000
                PrinterSetup.mmMarginLeft = 20000
                PrinterSetup.mmMarginRight = 10000
                PrinterSetup.mmMarginTop = 15000
                PrinterSetup.mmPaperHeight = 297000
                PrinterSetup.mmPaperWidth = 210000
                PrinterSetup.PaperSize = 9
                Units = utMillimeters
                Version = '9.01'
                mmColumnWidth = 0
                DataPipelineName = 'ppDBCheques'
                object ppTitleBand2: TppTitleBand
                  mmBottomOffset = 0
                  mmHeight = 5821
                  mmPrintPosition = 0
                  object ppLabel16: TppLabel
                    UserName = 'Label16'
                    Border.BorderPositions = []
                    Border.Color = clBlack
                    Border.Style = psSolid
                    Border.Visible = False
                    Border.Weight = 1
                    Caption = 'Cheque N'#186
                    Font.Charset = DEFAULT_CHARSET
                    Font.Color = clWindowText
                    Font.Name = 'Arial'
                    Font.Size = 10
                    Font.Style = [fsBold]
                    TextAlignment = taRightJustified
                    Transparent = True
                    mmHeight = 4191
                    mmLeft = 8467
                    mmTop = 794
                    mmWidth = 17695
                    BandType = 1
                  end
                  object ppLabel17: TppLabel
                    UserName = 'Label17'
                    Border.BorderPositions = []
                    Border.Color = clBlack
                    Border.Style = psSolid
                    Border.Visible = False
                    Border.Weight = 1
                    Caption = 'Banco'
                    Font.Charset = DEFAULT_CHARSET
                    Font.Color = clWindowText
                    Font.Name = 'Arial'
                    Font.Size = 10
                    Font.Style = [fsBold]
                    TextAlignment = taRightJustified
                    Transparent = True
                    mmHeight = 4191
                    mmLeft = 42069
                    mmTop = 794
                    mmWidth = 10753
                    BandType = 1
                  end
                  object ppLabel18: TppLabel
                    UserName = 'Label18'
                    Border.BorderPositions = []
                    Border.Color = clBlack
                    Border.Style = psSolid
                    Border.Visible = False
                    Border.Weight = 1
                    Caption = 'Emisi'#243'n'
                    Font.Charset = DEFAULT_CHARSET
                    Font.Color = clWindowText
                    Font.Name = 'Arial'
                    Font.Size = 10
                    Font.Style = [fsBold]
                    TextAlignment = taRightJustified
                    Transparent = True
                    mmHeight = 4191
                    mmLeft = 80963
                    mmTop = 794
                    mmWidth = 13674
                    BandType = 1
                  end
                  object ppLabel19: TppLabel
                    UserName = 'Label19'
                    Border.BorderPositions = []
                    Border.Color = clBlack
                    Border.Style = psSolid
                    Border.Visible = False
                    Border.Weight = 1
                    Caption = 'Cobro'
                    Font.Charset = DEFAULT_CHARSET
                    Font.Color = clWindowText
                    Font.Name = 'Arial'
                    Font.Size = 10
                    Font.Style = [fsBold]
                    TextAlignment = taRightJustified
                    Transparent = True
                    mmHeight = 4191
                    mmLeft = 110861
                    mmTop = 794
                    mmWidth = 10372
                    BandType = 1
                  end
                  object ppLabel20: TppLabel
                    UserName = 'Label20'
                    Border.BorderPositions = []
                    Border.Color = clBlack
                    Border.Style = psSolid
                    Border.Visible = False
                    Border.Weight = 1
                    Caption = 'Importe'
                    Font.Charset = DEFAULT_CHARSET
                    Font.Color = clWindowText
                    Font.Name = 'Arial'
                    Font.Size = 10
                    Font.Style = [fsBold]
                    TextAlignment = taRightJustified
                    Transparent = True
                    mmHeight = 4191
                    mmLeft = 145786
                    mmTop = 794
                    mmWidth = 12912
                    BandType = 1
                  end
                  object ppLine5: TppLine
                    UserName = 'Line5'
                    Border.BorderPositions = []
                    Border.Color = clBlack
                    Border.Style = psSolid
                    Border.Visible = False
                    Border.Weight = 1
                    Pen.Color = clGrayText
                    Pen.Width = 2
                    Weight = 1.5
                    mmHeight = 529
                    mmLeft = 0
                    mmTop = 0
                    mmWidth = 179652
                    BandType = 1
                  end
                  object ppLine4: TppLine
                    UserName = 'Line4'
                    Border.BorderPositions = []
                    Border.Color = clBlack
                    Border.Style = psSolid
                    Border.Visible = False
                    Border.Weight = 1
                    Pen.Color = clGrayText
                    Pen.Width = 2
                    Weight = 1.5
                    mmHeight = 529
                    mmLeft = 0
                    mmTop = 5292
                    mmWidth = 179917
                    BandType = 1
                  end
                end
                object ppDetailBand3: TppDetailBand
                  mmBottomOffset = 0
                  mmHeight = 3969
                  mmPrintPosition = 0
                  object ppDBText12: TppDBText
                    UserName = 'DBText12'
                    AutoSize = True
                    Border.BorderPositions = []
                    Border.Color = clBlack
                    Border.Style = psSolid
                    Border.Visible = False
                    Border.Weight = 1
                    DataField = 'CHEQUE'
                    DataPipeline = ppDBCheques
                    Font.Charset = DEFAULT_CHARSET
                    Font.Color = clBlack
                    Font.Name = 'Arial'
                    Font.Size = 10
                    Font.Style = []
                    ParentDataPipeline = False
                    Transparent = True
                    DataPipelineName = 'ppDBCheques'
                    mmHeight = 4022
                    mmLeft = 8467
                    mmTop = 0
                    mmWidth = 15028
                    BandType = 4
                  end
                  object ppDBText13: TppDBText
                    UserName = 'DBText13'
                    AutoSize = True
                    Border.BorderPositions = []
                    Border.Color = clBlack
                    Border.Style = psSolid
                    Border.Visible = False
                    Border.Weight = 1
                    DataField = 'BANCO'
                    DataPipeline = ppDBCheques
                    Font.Charset = DEFAULT_CHARSET
                    Font.Color = clBlack
                    Font.Name = 'Arial'
                    Font.Size = 10
                    Font.Style = []
                    ParentDataPipeline = False
                    Transparent = True
                    DataPipelineName = 'ppDBCheques'
                    mmHeight = 4022
                    mmLeft = 42333
                    mmTop = 0
                    mmWidth = 12488
                    BandType = 4
                  end
                  object ppDBText14: TppDBText
                    UserName = 'DBText14'
                    Border.BorderPositions = []
                    Border.Color = clBlack
                    Border.Style = psSolid
                    Border.Visible = False
                    Border.Weight = 1
                    DataField = 'FECHA_EMISION'
                    DataPipeline = ppDBCheques
                    DisplayFormat = 'dd/mm/yy'
                    Font.Charset = DEFAULT_CHARSET
                    Font.Color = clBlack
                    Font.Name = 'Arial'
                    Font.Size = 10
                    Font.Style = []
                    ParentDataPipeline = False
                    TextAlignment = taCentered
                    Transparent = True
                    DataPipelineName = 'ppDBCheques'
                    mmHeight = 3969
                    mmLeft = 78317
                    mmTop = 0
                    mmWidth = 20373
                    BandType = 4
                  end
                  object ppDBText15: TppDBText
                    UserName = 'DBText15'
                    Border.BorderPositions = []
                    Border.Color = clBlack
                    Border.Style = psSolid
                    Border.Visible = False
                    Border.Weight = 1
                    DataField = 'FECHA_COBRO'
                    DataPipeline = ppDBCheques
                    DisplayFormat = 'dd/mm/yy'
                    Font.Charset = DEFAULT_CHARSET
                    Font.Color = clBlack
                    Font.Name = 'Arial'
                    Font.Size = 10
                    Font.Style = []
                    ParentDataPipeline = False
                    TextAlignment = taCentered
                    Transparent = True
                    DataPipelineName = 'ppDBCheques'
                    mmHeight = 3969
                    mmLeft = 105834
                    mmTop = 0
                    mmWidth = 20373
                    BandType = 4
                  end
                  object ppDBText16: TppDBText
                    UserName = 'DBText16'
                    Border.BorderPositions = []
                    Border.Color = clBlack
                    Border.Style = psSolid
                    Border.Visible = False
                    Border.Weight = 1
                    DataField = 'IMPORTE'
                    DataPipeline = ppDBCheques
                    DisplayFormat = '#,###,##0.00'
                    Font.Charset = DEFAULT_CHARSET
                    Font.Color = clBlack
                    Font.Name = 'Arial'
                    Font.Size = 10
                    Font.Style = []
                    ParentDataPipeline = False
                    TextAlignment = taRightJustified
                    Transparent = True
                    DataPipelineName = 'ppDBCheques'
                    mmHeight = 3969
                    mmLeft = 143669
                    mmTop = 0
                    mmWidth = 17198
                    BandType = 4
                  end
                end
                object ppSummaryBand2: TppSummaryBand
                  PrintHeight = phDynamic
                  mmBottomOffset = 0
                  mmHeight = 21431
                  mmPrintPosition = 0
                  object ppEnLetras: TppLabel
                    UserName = 'EnLetras1'
                    Border.BorderPositions = []
                    Border.Color = clBlack
                    Border.Style = psSolid
                    Border.Visible = False
                    Border.Weight = 1
                    Caption = 'EnLetras'
                    Font.Charset = DEFAULT_CHARSET
                    Font.Color = clBlack
                    Font.Name = 'Arial'
                    Font.Size = 10
                    Font.Style = []
                    Transparent = True
                    mmHeight = 3969
                    mmLeft = 0
                    mmTop = 8731
                    mmWidth = 14023
                    BandType = 7
                  end
                  object ppLabel21: TppLabel
                    UserName = 'Label21'
                    Border.BorderPositions = []
                    Border.Color = clBlack
                    Border.Style = psSolid
                    Border.Visible = False
                    Border.Weight = 1
                    Caption = 'Total Orden de Pago:'
                    Font.Charset = DEFAULT_CHARSET
                    Font.Color = clWindowText
                    Font.Name = 'Arial'
                    Font.Size = 10
                    Font.Style = [fsBold]
                    Transparent = True
                    mmHeight = 4191
                    mmLeft = 94986
                    mmTop = 529
                    mmWidth = 35645
                    BandType = 7
                  end
                  object ppDBCalc4: TppDBCalc
                    UserName = 'DBCalc4'
                    AutoSize = True
                    Border.BorderPositions = []
                    Border.Color = clBlack
                    Border.Style = psSolid
                    Border.Visible = False
                    Border.Weight = 1
                    DataField = 'IMPORTE'
                    DataPipeline = ppDBCheques
                    DisplayFormat = '#,###,##0.00'
                    Font.Charset = DEFAULT_CHARSET
                    Font.Color = clBlack
                    Font.Name = 'Arial'
                    Font.Size = 10
                    Font.Style = [fsBold]
                    TextAlignment = taRightJustified
                    Transparent = True
                    DataPipelineName = 'ppDBCheques'
                    mmHeight = 4191
                    mmLeft = 135043
                    mmTop = 529
                    mmWidth = 26120
                    BandType = 7
                  end
                  object ppLine6: TppLine
                    UserName = 'Line6'
                    Border.BorderPositions = []
                    Border.Color = clBlack
                    Border.Style = psSolid
                    Border.Visible = False
                    Border.Weight = 1
                    Pen.Color = clGrayText
                    Pen.Width = 2
                    Weight = 1.5
                    mmHeight = 529
                    mmLeft = 265
                    mmTop = 0
                    mmWidth = 179652
                    BandType = 7
                  end
                  object ppSubReport4: TppSubReport
                    UserName = 'SubReport4'
                    ExpandAll = False
                    NewPrintJob = False
                    OutlineSettings.CreateNode = True
                    TraverseAllData = False
                    mmHeight = 5027
                    mmLeft = 0
                    mmTop = 16404
                    mmWidth = 180000
                    BandType = 7
                    mmBottomOffset = 0
                    mmOverFlowOffset = 0
                    mmStopPosition = 0
                    object ppChildReport4: TppChildReport
                      PrinterSetup.BinName = 'Default'
                      PrinterSetup.DocumentName = 'Report'
                      PrinterSetup.PaperName = 'A4'
                      PrinterSetup.PrinterName = 'Default'
                      PrinterSetup.mmMarginBottom = 15000
                      PrinterSetup.mmMarginLeft = 20000
                      PrinterSetup.mmMarginRight = 10000
                      PrinterSetup.mmMarginTop = 15000
                      PrinterSetup.mmPaperHeight = 297000
                      PrinterSetup.mmPaperWidth = 210000
                      PrinterSetup.PaperSize = 9
                      Units = utMillimeters
                      Version = '9.01'
                      mmColumnWidth = 0
                      object ppTitleBand6: TppTitleBand
                        mmBottomOffset = 0
                        mmHeight = 0
                        mmPrintPosition = 0
                      end
                      object ppDetailBand7: TppDetailBand
                        mmBottomOffset = 0
                        mmHeight = 92075
                        mmPrintPosition = 0
                        object ppLabel68: TppLabel
                          UserName = 'Label68'
                          AutoSize = False
                          Border.BorderPositions = []
                          Border.Color = clBlack
                          Border.Style = psSolid
                          Border.Visible = False
                          Border.Weight = 1
                          Caption = 'Apellido y Nombre Raz'#243'n Social:'
                          Font.Charset = DEFAULT_CHARSET
                          Font.Color = clBlack
                          Font.Name = 'Arial'
                          Font.Size = 10
                          Font.Style = []
                          TextAlignment = taRightJustified
                          Transparent = True
                          WordWrap = True
                          mmHeight = 8996
                          mmLeft = 6085
                          mmTop = 15875
                          mmWidth = 28575
                          BandType = 4
                        end
                        object ppDBText51: TppDBText
                          UserName = 'DBText51'
                          AutoSize = True
                          Border.BorderPositions = []
                          Border.Color = clBlack
                          Border.Style = psSolid
                          Border.Visible = False
                          Border.Weight = 1
                          DataField = 'TITULAR'
                          DataPipeline = ppDBProveedor
                          Font.Charset = DEFAULT_CHARSET
                          Font.Color = clBlack
                          Font.Name = 'Arial'
                          Font.Size = 10
                          Font.Style = []
                          ParentDataPipeline = False
                          Transparent = True
                          DataPipelineName = 'ppDBProveedor'
                          mmHeight = 4022
                          mmLeft = 41010
                          mmTop = 18256
                          mmWidth = 40894
                          BandType = 4
                        end
                        object ppLabel69: TppLabel
                          UserName = 'Label69'
                          AutoSize = False
                          Border.BorderPositions = []
                          Border.Color = clBlack
                          Border.Style = psSolid
                          Border.Visible = False
                          Border.Weight = 1
                          Caption = 'Domicilio:'
                          Font.Charset = DEFAULT_CHARSET
                          Font.Color = clBlack
                          Font.Name = 'Arial'
                          Font.Size = 10
                          Font.Style = []
                          TextAlignment = taRightJustified
                          Transparent = True
                          mmHeight = 4763
                          mmLeft = 6085
                          mmTop = 24871
                          mmWidth = 28575
                          BandType = 4
                        end
                        object ppDBText52: TppDBText
                          UserName = 'DBText52'
                          AutoSize = True
                          Border.BorderPositions = []
                          Border.Color = clBlack
                          Border.Style = psSolid
                          Border.Visible = False
                          Border.Weight = 1
                          DataField = 'DOMICILIO'
                          DataPipeline = ppDBProveedor
                          Font.Charset = DEFAULT_CHARSET
                          Font.Color = clBlack
                          Font.Name = 'Arial'
                          Font.Size = 10
                          Font.Style = []
                          ParentDataPipeline = False
                          Transparent = True
                          DataPipelineName = 'ppDBProveedor'
                          mmHeight = 4022
                          mmLeft = 40746
                          mmTop = 24871
                          mmWidth = 25485
                          BandType = 4
                        end
                        object ppLabel70: TppLabel
                          UserName = 'Label70'
                          AutoSize = False
                          Border.BorderPositions = []
                          Border.Color = clBlack
                          Border.Style = psSolid
                          Border.Visible = False
                          Border.Weight = 1
                          Caption = 'Localidad:'
                          Font.Charset = DEFAULT_CHARSET
                          Font.Color = clBlack
                          Font.Name = 'Arial'
                          Font.Size = 10
                          Font.Style = []
                          TextAlignment = taRightJustified
                          Transparent = True
                          mmHeight = 4763
                          mmLeft = 6085
                          mmTop = 29633
                          mmWidth = 28575
                          BandType = 4
                        end
                        object ppDBText53: TppDBText
                          UserName = 'DBText53'
                          AutoSize = True
                          Border.BorderPositions = []
                          Border.Color = clBlack
                          Border.Style = psSolid
                          Border.Visible = False
                          Border.Weight = 1
                          DataField = 'LOCALIDAD'
                          DataPipeline = ppDBProveedor
                          Font.Charset = DEFAULT_CHARSET
                          Font.Color = clBlack
                          Font.Name = 'Arial'
                          Font.Size = 10
                          Font.Style = []
                          ParentDataPipeline = False
                          Transparent = True
                          DataPipelineName = 'ppDBProveedor'
                          mmHeight = 4022
                          mmLeft = 41010
                          mmTop = 29633
                          mmWidth = 17314
                          BandType = 4
                        end
                        object ppLabel71: TppLabel
                          UserName = 'Label71'
                          AutoSize = False
                          Border.BorderPositions = []
                          Border.Color = clBlack
                          Border.Style = psSolid
                          Border.Visible = False
                          Border.Weight = 1
                          Caption = 'Provincia:'
                          Font.Charset = DEFAULT_CHARSET
                          Font.Color = clBlack
                          Font.Name = 'Arial'
                          Font.Size = 10
                          Font.Style = []
                          TextAlignment = taRightJustified
                          Transparent = True
                          mmHeight = 5027
                          mmLeft = 6350
                          mmTop = 34396
                          mmWidth = 28575
                          BandType = 4
                        end
                        object ppDBText54: TppDBText
                          UserName = 'DBText54'
                          AutoSize = True
                          Border.BorderPositions = []
                          Border.Color = clBlack
                          Border.Style = psSolid
                          Border.Visible = False
                          Border.Weight = 1
                          DataField = 'PROVINCIA'
                          DataPipeline = ppDBProveedor
                          Font.Charset = DEFAULT_CHARSET
                          Font.Color = clBlack
                          Font.Name = 'Arial'
                          Font.Size = 10
                          Font.Style = []
                          ParentDataPipeline = False
                          Transparent = True
                          DataPipelineName = 'ppDBProveedor'
                          mmHeight = 4022
                          mmLeft = 40746
                          mmTop = 34396
                          mmWidth = 26289
                          BandType = 4
                        end
                        object ppLabel72: TppLabel
                          UserName = 'Label302'
                          AutoSize = False
                          Border.BorderPositions = []
                          Border.Color = clBlack
                          Border.Style = psSolid
                          Border.Visible = False
                          Border.Weight = 1
                          Caption = 'N'#186' C.U.I.T.:'
                          Font.Charset = DEFAULT_CHARSET
                          Font.Color = clBlack
                          Font.Name = 'Arial'
                          Font.Size = 10
                          Font.Style = []
                          TextAlignment = taRightJustified
                          Transparent = True
                          mmHeight = 4763
                          mmLeft = 6085
                          mmTop = 39423
                          mmWidth = 28575
                          BandType = 4
                        end
                        object ppDBText55: TppDBText
                          UserName = 'DBText55'
                          AutoSize = True
                          Border.BorderPositions = []
                          Border.Color = clBlack
                          Border.Style = psSolid
                          Border.Visible = False
                          Border.Weight = 1
                          DataField = 'CUIT'
                          DataPipeline = ppDBProveedor
                          Font.Charset = DEFAULT_CHARSET
                          Font.Color = clBlack
                          Font.Name = 'Arial'
                          Font.Size = 10
                          Font.Style = []
                          ParentDataPipeline = False
                          Transparent = True
                          DataPipelineName = 'ppDBProveedor'
                          mmHeight = 4022
                          mmLeft = 40746
                          mmTop = 39423
                          mmWidth = 23791
                          BandType = 4
                        end
                        object ppLabel73: TppLabel
                          UserName = 'Label73'
                          AutoSize = False
                          Border.BorderPositions = []
                          Border.Color = clBlack
                          Border.Style = psSolid
                          Border.Visible = False
                          Border.Weight = 1
                          Caption = 'N'#186' Ingresos Brutos:'
                          Font.Charset = DEFAULT_CHARSET
                          Font.Color = clBlack
                          Font.Name = 'Arial'
                          Font.Size = 10
                          Font.Style = []
                          TextAlignment = taRightJustified
                          Transparent = True
                          mmHeight = 4763
                          mmLeft = 4498
                          mmTop = 44186
                          mmWidth = 30692
                          BandType = 4
                        end
                        object ppDBText56: TppDBText
                          UserName = 'DBText56'
                          AutoSize = True
                          Border.BorderPositions = []
                          Border.Color = clBlack
                          Border.Style = psSolid
                          Border.Visible = False
                          Border.Weight = 1
                          DataField = 'CUIT'
                          DataPipeline = ppDBProveedor
                          Font.Charset = DEFAULT_CHARSET
                          Font.Color = clBlack
                          Font.Name = 'Arial'
                          Font.Size = 10
                          Font.Style = []
                          ParentDataPipeline = False
                          Transparent = True
                          DataPipelineName = 'ppDBProveedor'
                          mmHeight = 4022
                          mmLeft = 40746
                          mmTop = 44186
                          mmWidth = 23791
                          BandType = 4
                        end
                        object ppLabel74: TppLabel
                          UserName = 'Label74'
                          Border.BorderPositions = []
                          Border.Color = clBlack
                          Border.Style = psSolid
                          Border.Visible = False
                          Border.Weight = 1
                          Caption = 'Importe pagado sujeto a retenci'#243'n:'
                          Font.Charset = DEFAULT_CHARSET
                          Font.Color = clBlack
                          Font.Name = 'Arial'
                          Font.Size = 10
                          Font.Style = []
                          TextAlignment = taRightJustified
                          Transparent = True
                          mmHeight = 4763
                          mmLeft = 4498
                          mmTop = 54240
                          mmWidth = 54314
                          BandType = 4
                        end
                        object ppRetencion: TppLabel
                          UserName = 'Retencion'
                          Border.BorderPositions = []
                          Border.Color = clBlack
                          Border.Style = psSolid
                          Border.Visible = False
                          Border.Weight = 1
                          Font.Charset = DEFAULT_CHARSET
                          Font.Color = clBlack
                          Font.Name = 'Arial'
                          Font.Size = 10
                          Font.Style = []
                          TextAlignment = taRightJustified
                          Transparent = True
                          mmHeight = 4763
                          mmLeft = 70644
                          mmTop = 59267
                          mmWidth = 21696
                          BandType = 4
                        end
                        object ppLabel76: TppLabel
                          UserName = 'Label76'
                          Border.BorderPositions = []
                          Border.Color = clBlack
                          Border.Style = psSolid
                          Border.Visible = False
                          Border.Weight = 1
                          Caption = 'CHIVILCOY,'
                          Font.Charset = DEFAULT_CHARSET
                          Font.Color = clBlack
                          Font.Name = 'Arial'
                          Font.Size = 10
                          Font.Style = []
                          Transparent = True
                          mmHeight = 4763
                          mmLeft = 6615
                          mmTop = 72761
                          mmWidth = 19854
                          BandType = 4
                        end
                        object ppSystemVariable4: TppSystemVariable
                          UserName = 'SystemVariable4'
                          Border.BorderPositions = []
                          Border.Color = clBlack
                          Border.Style = psSolid
                          Border.Visible = False
                          Border.Weight = 1
                          Font.Charset = DEFAULT_CHARSET
                          Font.Color = clBlack
                          Font.Name = 'Arial'
                          Font.Size = 10
                          Font.Style = []
                          Transparent = True
                          mmHeight = 4763
                          mmLeft = 29633
                          mmTop = 72761
                          mmWidth = 17526
                          BandType = 4
                        end
                        object ppLine11: TppLine
                          UserName = 'Line11'
                          Border.BorderPositions = []
                          Border.Color = clBlack
                          Border.Style = psSolid
                          Border.Visible = False
                          Border.Weight = 1
                          Pen.Style = psDot
                          Weight = 0.75
                          mmHeight = 1058
                          mmLeft = 103452
                          mmTop = 81756
                          mmWidth = 72761
                          BandType = 4
                        end
                        object ppLabel77: TppLabel
                          UserName = 'Label77'
                          Border.BorderPositions = []
                          Border.Color = clBlack
                          Border.Style = psSolid
                          Border.Visible = False
                          Border.Weight = 1
                          Caption = 'p/SERIO PIZZOLANTE C.I. S.R.L.'
                          Font.Charset = DEFAULT_CHARSET
                          Font.Color = clBlack
                          Font.Name = 'Arial'
                          Font.Size = 10
                          Font.Style = []
                          Transparent = True
                          mmHeight = 4763
                          mmLeft = 112713
                          mmTop = 82815
                          mmWidth = 53711
                          BandType = 4
                        end
                        object ppLabel64: TppLabel
                          UserName = 'Label64'
                          Anchors = [atTop, atRight]
                          Border.BorderPositions = []
                          Border.Color = clBlack
                          Border.Style = psSolid
                          Border.Visible = False
                          Border.Weight = 1
                          Caption = 'COMPROBANTE DE RETENCION'
                          Font.Charset = ANSI_CHARSET
                          Font.Color = clBlack
                          Font.Name = 'Arial Narrow'
                          Font.Size = 12
                          Font.Style = [fsBold]
                          TextAlignment = taRightJustified
                          Transparent = True
                          mmHeight = 4911
                          mmLeft = 120915
                          mmTop = 0
                          mmWidth = 54779
                          BandType = 4
                        end
                        object ppImporteNeto: TppLabel
                          UserName = 'ImporteNeto'
                          Border.BorderPositions = []
                          Border.Color = clBlack
                          Border.Style = psSolid
                          Border.Visible = False
                          Border.Weight = 1
                          Font.Charset = DEFAULT_CHARSET
                          Font.Color = clBlack
                          Font.Name = 'Arial'
                          Font.Size = 10
                          Font.Style = []
                          TextAlignment = taRightJustified
                          Transparent = True
                          mmHeight = 4763
                          mmLeft = 70908
                          mmTop = 54504
                          mmWidth = 21431
                          BandType = 4
                        end
                        object ppLabel50: TppLabel
                          UserName = 'ImporteNeto1'
                          Border.BorderPositions = []
                          Border.Color = clBlack
                          Border.Style = psSolid
                          Border.Visible = False
                          Border.Weight = 1
                          Caption = 'Importe retenido:'
                          Font.Charset = DEFAULT_CHARSET
                          Font.Color = clBlack
                          Font.Name = 'Arial'
                          Font.Size = 10
                          Font.Style = []
                          TextAlignment = taRightJustified
                          Transparent = True
                          mmHeight = 4763
                          mmLeft = 32152
                          mmTop = 59002
                          mmWidth = 26585
                          BandType = 4
                        end
                        object ppDBText17: TppDBText
                          UserName = 'DBText17'
                          Anchors = [atTop, atRight]
                          AutoSize = True
                          Border.BorderPositions = []
                          Border.Color = clBlack
                          Border.Style = psSolid
                          Border.Visible = False
                          Border.Weight = 1
                          DataField = 'NUMERO'
                          DataPipeline = ppDBOrdenPago
                          DisplayFormat = #39'N'#186' '#39'0001'#39'-'#39'00000000'
                          Font.Charset = ANSI_CHARSET
                          Font.Color = clBlack
                          Font.Name = 'Arial Narrow'
                          Font.Size = 12
                          Font.Style = [fsBold]
                          ParentDataPipeline = False
                          TextAlignment = taRightJustified
                          Transparent = True
                          DataPipelineName = 'ppDBOrdenPago'
                          mmHeight = 4911
                          mmLeft = 146315
                          mmTop = 10054
                          mmWidth = 29252
                          BandType = 4
                        end
                        object ppLabel22: TppLabel
                          UserName = 'Label22'
                          Anchors = [atTop, atRight]
                          Border.BorderPositions = []
                          Border.Color = clBlack
                          Border.Style = psSolid
                          Border.Visible = False
                          Border.Weight = 1
                          Caption = 'INGRESOS BRUTOS'
                          Font.Charset = ANSI_CHARSET
                          Font.Color = clBlack
                          Font.Name = 'Arial Narrow'
                          Font.Size = 12
                          Font.Style = [fsBold]
                          TextAlignment = taRightJustified
                          Transparent = True
                          mmHeight = 4911
                          mmLeft = 141817
                          mmTop = 5027
                          mmWidth = 33994
                          BandType = 4
                        end
                      end
                      object ppSummaryBand6: TppSummaryBand
                        mmBottomOffset = 0
                        mmHeight = 0
                        mmPrintPosition = 0
                      end
                    end
                  end
                  object ppPageBreak1: TppPageBreak
                    UserName = 'PageBreak1'
                    mmHeight = 3440
                    mmLeft = 0
                    mmTop = 12700
                    mmWidth = 180000
                    BandType = 7
                    mmBottomOffset = 0
                    mmOverFlowOffset = 0
                    mmStopPosition = 0
                  end
                end
              end
            end
          end
        end
      end
    end
    object ppFooterBand1: TppFooterBand
      mmBottomOffset = 0
      mmHeight = 0
      mmPrintPosition = 0
    end
    object ppPageStyle1: TppPageStyle
      EndPage = 0
      SinglePage = 0
      StartPage = 0
      mmBottomOffset = 0
      mmHeight = 0
      mmPrintPosition = 0
    end
    object ppParameterList1: TppParameterList
    end
  end
  object ppDBRenglon: TppDBPipeline
    DataSource = sRenglon_OrdenPago
    UserName = 'DBRenglon'
    Left = 96
    Top = 264
    object ppDBRenglonppField1: TppField
      Alignment = taRightJustify
      FieldAlias = 'ID_COMPRA'
      FieldName = 'ID_COMPRA'
      FieldLength = 0
      DataType = dtInteger
      DisplayWidth = 0
      Position = 0
    end
    object ppDBRenglonppField2: TppField
      Alignment = taRightJustify
      FieldAlias = 'NUMERO'
      FieldName = 'NUMERO'
      FieldLength = 0
      DataType = dtInteger
      DisplayWidth = 10
      Position = 1
    end
    object ppDBRenglonppField3: TppField
      Alignment = taRightJustify
      FieldAlias = 'importe'
      FieldName = 'importe'
      FieldLength = 0
      DataType = dtDouble
      DisplayWidth = 10
      Position = 2
    end
    object ppDBRenglonppField4: TppField
      Alignment = taRightJustify
      FieldAlias = 'ID_TIPO'
      FieldName = 'ID_TIPO'
      FieldLength = 0
      DataType = dtInteger
      DisplayWidth = 10
      Position = 3
    end
    object ppDBRenglonppField5: TppField
      FieldAlias = 'tipo'
      FieldName = 'tipo'
      FieldLength = 2
      DisplayWidth = 2
      Position = 4
    end
    object ppDBRenglonppField6: TppField
      Alignment = taRightJustify
      FieldAlias = 'NETO'
      FieldName = 'NETO'
      FieldLength = 0
      DataType = dtDouble
      DisplayWidth = 10
      Position = 5
    end
    object ppDBRenglonppField7: TppField
      Alignment = taRightJustify
      FieldAlias = 'IVA'
      FieldName = 'IVA'
      FieldLength = 0
      DataType = dtDouble
      DisplayWidth = 10
      Position = 6
    end
    object ppDBRenglonppField8: TppField
      Alignment = taRightJustify
      FieldAlias = 'PIB'
      FieldName = 'PIB'
      FieldLength = 0
      DataType = dtDouble
      DisplayWidth = 10
      Position = 7
    end
    object ppDBRenglonppField9: TppField
      Alignment = taRightJustify
      FieldAlias = 'DESCUENTO'
      FieldName = 'DESCUENTO'
      FieldLength = 0
      DataType = dtDouble
      DisplayWidth = 10
      Position = 8
    end
    object ppDBRenglonppField10: TppField
      Alignment = taRightJustify
      FieldAlias = 'COMPROBANTE'
      FieldName = 'COMPROBANTE'
      FieldLength = 0
      DataType = dtInteger
      DisplayWidth = 10
      Position = 9
    end
    object ppDBRenglonppField11: TppField
      FieldAlias = 'FECHA'
      FieldName = 'FECHA'
      FieldLength = 0
      DataType = dtDateTime
      DisplayWidth = 34
      Position = 10
    end
    object ppDBRenglonppField12: TppField
      Alignment = taRightJustify
      FieldAlias = 'retencion'
      FieldName = 'retencion'
      FieldLength = 0
      DataType = dtDouble
      DisplayWidth = 10
      Position = 11
    end
    object ppDBRenglonppField13: TppField
      Alignment = taRightJustify
      FieldAlias = 'RENGLON'
      FieldName = 'RENGLON'
      FieldLength = 0
      DataType = dtInteger
      DisplayWidth = 10
      Position = 12
    end
  end
  object ppDBOrdenPago: TppDBPipeline
    DataSource = sOrdenPago
    UserName = 'DBOrdenPago'
    Left = 64
    Top = 264
    object ppDBOrdenPagoppField1: TppField
      Alignment = taRightJustify
      FieldAlias = 'NUMERO'
      FieldName = 'NUMERO'
      FieldLength = 0
      DataType = dtInteger
      DisplayWidth = 0
      Position = 0
    end
    object ppDBOrdenPagoppField2: TppField
      Alignment = taRightJustify
      FieldAlias = 'ID_PROVEEDOR'
      FieldName = 'ID_PROVEEDOR'
      FieldLength = 0
      DataType = dtInteger
      DisplayWidth = 10
      Position = 1
    end
    object ppDBOrdenPagoppField3: TppField
      FieldAlias = 'CUIT'
      FieldName = 'CUIT'
      FieldLength = 20
      DisplayWidth = 20
      Position = 2
    end
    object ppDBOrdenPagoppField4: TppField
      FieldAlias = 'FECHA'
      FieldName = 'FECHA'
      FieldLength = 0
      DataType = dtDateTime
      DisplayWidth = 34
      Position = 3
    end
    object ppDBOrdenPagoppField5: TppField
      Alignment = taRightJustify
      FieldAlias = 'ALICUOTA_RETENCION'
      FieldName = 'ALICUOTA_RETENCION'
      FieldLength = 0
      DataType = dtDouble
      DisplayWidth = 10
      Position = 4
    end
    object ppDBOrdenPagoppField6: TppField
      FieldAlias = 'proveedor'
      FieldName = 'proveedor'
      FieldLength = 50
      DisplayWidth = 50
      Position = 5
    end
    object ppDBOrdenPagoppField7: TppField
      FieldAlias = 'BLOQUEO'
      FieldName = 'BLOQUEO'
      FieldLength = 1
      DisplayWidth = 1
      Position = 6
    end
  end
  object ppDBEmpresa: TppDBPipeline
    DataSource = sEmpresa
    UserName = 'DBEmpresa'
    Left = 32
    Top = 264
  end
  object cdsEmpresa: TSQLClientDataSet
    CommandText = 
      'select E.RAZON, E.DOMICILIO||'#39' - '#39'||L.LOCALIDAD D, E.LOGO, CUIT,' +
      ' IB'#13#10'from EMPRESA E, LOCALIDAD L'#13#10'where E.ID_LOCALIDAD = L.ID_LO' +
      'CALIDAD'
    Aggregates = <>
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <>
    DBConnection = Con
    Left = 16
    Top = 72
    object cdsEmpresaRAZON: TStringField
      FieldName = 'RAZON'
      Required = True
      Size = 40
    end
    object cdsEmpresaLOGO: TBlobField
      FieldName = 'LOGO'
      Size = 1
    end
    object cdsEmpresaD: TStringField
      FieldName = 'D'
      Required = True
      Size = 83
    end
    object cdsEmpresaCUIT: TStringField
      FieldName = 'CUIT'
      Size = 13
    end
    object cdsEmpresaIB: TStringField
      FieldName = 'IB'
      Size = 15
    end
  end
  object sEmpresa: TDataSource
    DataSet = cdsEmpresa
    Left = 48
    Top = 72
  end
  object cdsBYC: TSQLClientDataSet
    CommandText = 
      'select C.ID_CUENTA, B.BANCO, B.BANCO||'#39' / '#39'||C.CUENTA BYC'#13#10'from ' +
      'BANCO B, CUENTA C '#13#10'where C.ID_BANCO = B.ID_BANCO'#13#10'order by B.BA' +
      'NCO,C.CUENTA'#13#10
    Aggregates = <>
    AggregatesActive = True
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <>
    AfterScroll = cdsBYCAfterScroll
    OnCalcFields = cdsRenglon_OrdenPagoCalcFields
    OnNewRecord = cdsRenglon_OrdenPagoNewRecord
    DBConnection = Con
    Left = 16
    Top = 498
    object cdsBYCID_CUENTA: TSmallintField
      FieldName = 'ID_CUENTA'
      Required = True
    end
    object cdsBYCBANCO: TStringField
      FieldName = 'BANCO'
      Required = True
      Size = 50
    end
    object cdsBYCBYC: TStringField
      FieldName = 'BYC'
      Required = True
      Size = 73
    end
  end
  object sBYC: TDataSource
    DataSet = cdsBYC
    OnStateChange = sOrdenPagoStateChange
    Left = 48
    Top = 498
  end
  object cdsCheque: TSQLClientDataSet
    CommandText = 
      'select CH.ID_CHEQUE, CH.ID_CUENTA, CH.CHEQUE, CH.IMPORTE, CH.FEC' +
      'HA_EMISION, CH.FECHA_COBRO '#13#10'from CHEQUE_PROPIO CH'#13#10'where CH.ID_' +
      'CUENTA = :id'#13#10'and not(CH.CHEQUE like '#39'%DEBITO%'#39')'#13#10'and CH.FECHA_E' +
      'MISION > :fecha'#13#10'order by CH.CHEQUE desc'#13#10
    Aggregates = <>
    AggregatesActive = True
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <
      item
        DataType = ftUnknown
        Name = 'id'
        ParamType = ptInput
      end
      item
        DataType = ftUnknown
        Name = 'fecha'
        ParamType = ptInput
      end>
    DBConnection = Con
    Left = 208
    Top = 546
    object cdsChequeID_CHEQUE: TIntegerField
      FieldName = 'ID_CHEQUE'
      Required = True
    end
    object cdsChequeID_CUENTA: TSmallintField
      FieldName = 'ID_CUENTA'
      Required = True
    end
    object cdsChequeCHEQUE: TStringField
      FieldName = 'CHEQUE'
      Required = True
    end
    object cdsChequeIMPORTE: TFloatField
      FieldName = 'IMPORTE'
      Required = True
      DisplayFormat = '#,###,##0.00'
    end
    object cdsChequeFECHA_EMISION: TSQLTimeStampField
      Alignment = taCenter
      FieldName = 'FECHA_EMISION'
      Required = True
      DisplayFormat = 'dd/mm/yy'
    end
    object cdsChequeFECHA_COBRO: TSQLTimeStampField
      Alignment = taCenter
      FieldName = 'FECHA_COBRO'
      Required = True
      DisplayFormat = 'dd/mm/yy'
    end
  end
  object sCheque: TDataSource
    DataSet = cdsCheque
    OnStateChange = sChequeStateChange
    Left = 240
    Top = 546
  end
  object cdsChequeOrdenPago: TSQLClientDataSet
    CommandText = 
      'select CHOP.ID_CHEQUE, CHOP.NUMERO, CHOP.BANCO, CHOP.CHEQUE, CHO' +
      'P.FECHA_EMISION, CHOP.FECHA_COBRO, CHOP.IMPORTE'#13#10'from CHEQUE_ORD' +
      'EN_PAGO CHOP'#13#10'where CHOP.NUMERO = :id'
    Aggregates = <>
    AggregatesActive = True
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <
      item
        DataType = ftUnknown
        Name = 'id'
        ParamType = ptInput
      end>
    OnNewRecord = cdsChequeOrdenPagoNewRecord
    DBConnection = Con
    Left = 136
    Top = 434
    object cdsChequeOrdenPagoID_CHEQUE: TIntegerField
      FieldName = 'ID_CHEQUE'
      Required = True
    end
    object cdsChequeOrdenPagoNUMERO: TIntegerField
      FieldName = 'NUMERO'
      Required = True
    end
    object cdsChequeOrdenPagoBANCO: TStringField
      FieldName = 'BANCO'
      Required = True
      Size = 50
    end
    object cdsChequeOrdenPagoCHEQUE: TStringField
      FieldName = 'CHEQUE'
      Required = True
    end
    object cdsChequeOrdenPagoFECHA_EMISION: TSQLTimeStampField
      FieldName = 'FECHA_EMISION'
      Required = True
      DisplayFormat = 'dd/mm/yy'
    end
    object cdsChequeOrdenPagoFECHA_COBRO: TSQLTimeStampField
      FieldName = 'FECHA_COBRO'
      Required = True
      DisplayFormat = 'dd/mm/yy'
    end
    object cdsChequeOrdenPagoIMPORTE: TFloatField
      FieldName = 'IMPORTE'
      Required = True
      DisplayFormat = '#,###,##0.00'
    end
  end
  object sChequeOrdenPago: TDataSource
    DataSet = cdsChequeOrdenPago
    OnStateChange = sOrdenPagoStateChange
    Left = 240
    Top = 410
  end
  object ppDBCheques: TppDBPipeline
    DataSource = sChequeOrdenPago
    UserName = 'DBCheques'
    Left = 160
    Top = 264
    object ppDBChequesppField1: TppField
      FieldAlias = 'ID_CHEQUE'
      FieldName = 'ID_CHEQUE'
      FieldLength = 0
      DataType = dtNotKnown
      DisplayWidth = 0
      Position = 0
      Searchable = False
      Sortable = False
    end
    object ppDBChequesppField2: TppField
      FieldAlias = 'NUMERO'
      FieldName = 'NUMERO'
      FieldLength = 0
      DataType = dtNotKnown
      DisplayWidth = 0
      Position = 1
      Searchable = False
      Sortable = False
    end
    object ppDBChequesppField3: TppField
      FieldAlias = 'BANCO'
      FieldName = 'BANCO'
      FieldLength = 0
      DataType = dtNotKnown
      DisplayWidth = 0
      Position = 2
      Searchable = False
      Sortable = False
    end
    object ppDBChequesppField4: TppField
      FieldAlias = 'CHEQUE'
      FieldName = 'CHEQUE'
      FieldLength = 0
      DataType = dtNotKnown
      DisplayWidth = 0
      Position = 3
      Searchable = False
      Sortable = False
    end
    object ppDBChequesppField5: TppField
      FieldAlias = 'FECHA_EMISION'
      FieldName = 'FECHA_EMISION'
      FieldLength = 0
      DataType = dtNotKnown
      DisplayWidth = 0
      Position = 4
      Searchable = False
      Sortable = False
    end
    object ppDBChequesppField6: TppField
      FieldAlias = 'FECHA_COBRO'
      FieldName = 'FECHA_COBRO'
      FieldLength = 0
      DataType = dtNotKnown
      DisplayWidth = 0
      Position = 5
      Searchable = False
      Sortable = False
    end
    object ppDBChequesppField7: TppField
      FieldAlias = 'IMPORTE'
      FieldName = 'IMPORTE'
      FieldLength = 0
      DataType = dtNotKnown
      DisplayWidth = 0
      Position = 6
      Searchable = False
      Sortable = False
    end
  end
  object nuevo_id: TSQLStoredProc
    SQLConnection = Con
    Params = <
      item
        DataType = ftInteger
        Name = 'NUEVO_ID'
        ParamType = ptOutput
        Size = 4
      end>
    StoredProcName = 'CHEQUEPROPIO_GEN'
    Left = 128
    Top = 72
  end
  object ppDBProveedor: TppDBPipeline
    DataSource = sProveedor
    UserName = 'DBCheques1'
    Left = 192
    Top = 264
    object ppDBProveedorppField1: TppField
      Alignment = taRightJustify
      FieldAlias = 'ID_PROVEEDOR'
      FieldName = 'ID_PROVEEDOR'
      FieldLength = 0
      DataType = dtInteger
      DisplayWidth = 10
      Position = 0
    end
    object ppDBProveedorppField2: TppField
      FieldAlias = 'RAZON'
      FieldName = 'RAZON'
      FieldLength = 40
      DisplayWidth = 40
      Position = 1
    end
    object ppDBProveedorppField3: TppField
      FieldAlias = 'CUIT'
      FieldName = 'CUIT'
      FieldLength = 13
      DisplayWidth = 13
      Position = 2
    end
    object ppDBProveedorppField4: TppField
      FieldAlias = 'DOMICILIO'
      FieldName = 'DOMICILIO'
      FieldLength = 50
      DisplayWidth = 50
      Position = 3
    end
    object ppDBProveedorppField5: TppField
      FieldAlias = 'LOCALIDAD'
      FieldName = 'LOCALIDAD'
      FieldLength = 30
      DisplayWidth = 30
      Position = 4
    end
    object ppDBProveedorppField6: TppField
      FieldAlias = 'PROVINCIA'
      FieldName = 'PROVINCIA'
      FieldLength = 30
      DisplayWidth = 30
      Position = 5
    end
    object ppDBProveedorppField7: TppField
      FieldAlias = 'TITULAR'
      FieldName = 'TITULAR'
      FieldLength = 255
      DisplayWidth = 255
      Position = 6
    end
  end
end
